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Over de programma-listings 


Zoals u ongetwijfeld weet zijn er verschillende ‘modes’ beschikbaar op de Spectrum. De- 
ze geven elk verschillende ‘keywords’ of grafische symbolen. 
De programma-listings in dit boek zijn zo ontworpen dat zij zo gemakkelijk mogelijk lees- 
baar zijn. Enkele gebruikte symbolen behoeven enige uitleg. 


# Dit symbool geeft aan, dat er een spatie ingetikt moet worden in een PRINT- 
statement of in een STRING, 
Spaties zijn in deze programma's toegevoegd om de leesbaarheid te bevorderen. 
Soms zijn zij essentieel voor de goede werking van het programma. 


SHI Dit simbool geeft aan dat de CAPS SHIFT toets ingedrukt gehouden moet wor- 
den voor het volgende karakter. 


EXT Dit symbool wordt gebruikt om aan te geven dat u de Spectrum in EXTENDED 
MODE moet zetten. Hiertoe moet u CAPS SHIFT en de SYMBOL SHIFT toetsen 
tegelijk indrukken. Zie de Spectrum-handleiding voor meer details 


GRA Hiermee geven wij aan, dat u de Spectrum in GRAPHICS MODE moet zetten. 
Dit doet u door, terwijl u de toets CAPS SHIFT ingedrukt houdt, de ’9'-toets in te 
drukken. 


GRU Dit symbool (GRAPHICS uit) gebruiken wij om aan te geven, dat u GRAPHICS 
MODE uit moet zetten (druk, terwijl u de CAPS SHIFT toets ingedrukt houdt, de '9’- 
toets in). Merk op dat GRAPHICS MODE ook uitgezet wordt door EXT. 


INV Dit geeft INVERSE VIDEO MODE aan. Druk de toetsen CAPS SHIFT en 4 in, 
TRU Dit geeft TRUE VIDEO MODE aan. Druk de toetsen CAPS SHIFT en '3’ in. 


In dît boek wordt gebruik gemaakt van de mogelijkheid van de Spectrum om papier- en 
inktkleuren aan te geven in een PRINT-statement. Dit wordt gedaan door EXTENDED 
MODE aan te zetten en de juiste kleurtoets (voor papierkleur) of CAPS 

SHIFT + de juiste kleurtoets (voor inktkleur) in te drukken 

In het boek is dit bijvoorbeeld op de volgende manier aangegeven: 

EXT SHI3 kies inktkleur 3 (magenta) 

EXT 6 kies papierkleur 6 (geel) 


Bij de bovengenoemde voorbeelden moet u als volgt te werk gaan: 
EXT SHI3 1. Druk de toetsen CAPS SHIFT en SYMBOL SHIFT tegelijk in. De 
cursor verandert in een 'E', 
2, Houd de CAPS SHIFT toets ingedrukt en druk de '3' in. De cursor 
verandert weer in een 'K' of 'L’. 
EXT 6 1. Druk de toetsen CAPS SHIFT en SYMBOL SHIFT tegelijk in. De 
cursor verandert in een 'E’. 
2. Druk de '€’ in. De cursor verandert weer in een 'K' of 'L’. 





1. Algemene programma’s 


1.1 Springkikker 
(Copyright Beam Software) 


Het spelletje springkikker is aardig en simpel.U begint met twee zich tegenover elkaar 
bevindende groepen kikkers, en elke kikker mag alleen maar naar een naastliggende 
plaats verhuizen of over een andere kikker heenspringen. 


XXXX- OO0OOO 
1123456789 


Dus om te beginnen mag bijvoorbeeld de kikker op de plaats 4 naar plaats 5 gaan, of de 
kikker van 6 naar 5, of de kikker van 3 BL springen zodat hij op 5 uitkomt, of die van 7 
springt over 6 naar 5. 

Het doel van het spel is om alle linker kikkers rechts te krijgen en omgekeerd echter in het 
minste aantal beurten. Probeert u het maar. 


Programma-opbouw 

In het eerste gedeelte van elk programma moeten de variabelen, die eventueel gebruikt 
worden, benoemd worden. In dit geval wilt u de beginpositie van de kikkers definiëren en 
het aantal tot nu gebruikte beurten op nul zetten. 

Een bestudering van het programma geeft de volgende opbouw: 

Benoem de variabelen. 


Print print positie van kikkers. 
test of het einde van het spel bereikt is, 
zo ja, ga naar Einde. 
Invoer _ voer de spelerzet in. 
controleer of de zet legaal is, 
zo niet, ga naar Invoer. 
vermeerder het aantal beurten met 1, 
voer de zet uit en ga naar Print. 
Einde feliciteer speler. 
vraag aan speler of hij nog een keer wil spelen, zo ja, geef RUN. 


Deze simpele 'top-bodem'-benadering geeft u een overzicht van de programma-opbouw, 
zodat u het programma beter begrijot en er later zonodig veranderingen in kunt aanbren- 
gen. 


Opbouw van de variabelen 

Indit programma gebruikt u‘string'-variabelen om de positie van de kikkers vast te kunnen 
leggen. Een 'string’-variabele is hier gemakkelijk te hanteren en het versnelt het op het 
scherm zetten van de 'string'. 

U definieert a$ als de oorspronkelijke positie van de kikkers en b$ als de huidige positie. U 
kunt dezelfde variabelen gebruiken om te controleren of u al klaar bent (zie regel 150). 
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U gebruikt de variabelen 'naar’ en ‘van’ om de positie aan te geven, waarnaar en waarvan 
de kikker springt. Omdat een kikker alleen maar naar een lege positie mag springen, kunt 
u dit gemakkelijk controleren (zie regel 200) 

De rest van het programma is duidelijk, u gebruikt de ‘teller’ voor het aantal gebruikte 
beurten. 


Gebruik van het programma 

Het programma verwacht een getal van 2 cijfers als invoer om de sprongen ‘van’ en ’naar’ 
te benoemen. Het programma zal, bijvoorbeeld als legale eerste zet, alleen een van de 
volgende getallen accepteren: 


35 45 65 75 





Met 
Programma 


10 REM kikker 
100 LET & "GRA SHI 8 # SHIT B # SHI 8 # SHI GB HH SHI 6 # 
SHI 6 # SHI # o SHI & GRU" 
110 LET b&za® 
120 LET teller=0 
130 ELS 
140 PRINT AT 5,5;b$4AT 6, Zj C1EZHTRAHDHOHT HER" 
150 IF b&(l TO 7)e=abiit TU 17) AND b&C1t TO 17)=at(i TO 7) 
THEN GO TO 250 
160 INFUT "Jefkzatitsvpit"sks 
170 IF LEN kbir2 THEN GO TO 160 
180 LET van=2k(CODE k$(4) 48) =1 
190 LET naar=2X(CODE k$(2) 48) =t 
200 IF b&(naarssr"#" OR ABS (maar=van):4 THEN GO TO 160 
210 LET tellerstellert1 
220 LET bé$ (naar) =$ (van) 
LET b$(van)e="#" 
& 60 TO 140 
250 PRINT "Jekdeedtert";tellern; "#beurtendaver” 
INPUT "Naogteenitkeernr 2; k& 
IF CODE ké=45 THEN RUN 























1.2 Getalspiegel 
(Copyright Beam Software) 


Dit is een spiegel om het logisch denken te testen! U begint met negen getallen, van 1 tot 
9, in een willekeurige volgorde. 

Het doel is om ze in zo min mogelijk beurten in de goede volgorde te krijgen. Het enige 
middel dat u heeft om de volgorde te veranderen is de mogelijkheid om een aantal getallen 
te spiegelen. 

Als u bijvoorbeeld als eerste drie getallen '3 2 1’ had, dan krijgt u '1 2 3’ als u deze eerste 
drie spiegelt. Als u alleen de eerste twee gespiegeld zou hebben, dan had u'2 3 1’ gekre- 
gen. 


Let op dat u alleen kunt opgeven hoeveel getallen u gespiegeld wilt hebben. Dit program- 
ma is betrekkelijk kort, dus het is gemakkelijk in te voeren op uw computer, maar het is 
zeker een uitdaging voor het logisch denken. 


Programma-opmerkingen 

Dit programma benadrukt het gebruik van ‘arrays’, en laat tevens zien dat programma's 
die zinnige namen gebruiken voor variabelen gemakkelijk te ontcijferen zijn. 

Bekijkt u de programma-uitdraai. Het is niet nodig om een aparte programma-opbouw te 
geven omdat alle informatie in de uitdraai staat. 

Merk op dat het mogelijk is om spaties aan te brengen in het begin van een regel, zodat 
FOR-NEXT-lussen enz. extra benadrukt worden. 


Het gebruik van namen als variabelen voor regelnummers in GOTO- en GOSUB-op- 
drachten is ook een goede manier om een overzicht te geven van de programma-opbouw. 
Het beperkt ook het werk dat u moet doen tot een minimum als u de HERNUMMER-routi- 
ne, die verderop in het boek staat, gaat gebruiken. 


Gebruik van arrays 

Het gebruik van arrays maakt het mogelijk om naar een element te verwijzen zonder dat 
ieder element afzonderlijk een naam hoeft te hebben. 

In het begin van het programma dimensioneren we de array en deze zet elk element op 
nul. De grootte van de array wordt bepaald door een variabele, zodat u alleen maar de 
waarde van deze variabele hoeft te veranderen als u het logisch denken aan de hand van 
een langere rij getallen wilt testen. 


Bestudeer de manier waarop de getallen in een schijnbaar willekeurige volgorde worden 
gezet - we nemen één voor één de getallen en ruilen dat met het getal uit een willekeurig 
gekozen positie. Dit algoritme is ook een zeer bruikbare en efficiënte manier om kaarten in 
een kaartspel te schudden. 
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Programma 


10 
106 
110 











REM spiegel 
LET print=&00 
LET 
LET 
LET 
DIM a{groatte) 
FOR TO grootte 

LET alo)=c 
NEXT c 
FOR e=grootte TO 2 STEP —1 

LET ruit=1+INT (groottetRND 

LET tijdelijk=ac) 

LET als)=alruil) 

LET aCruildstijdelijk 
NEXT c 
LET teller=0 
50 SUB print 
INPUT "Hoeveeldgetallentwi li jeftHHHHiitapi egelen?#" sho 











IF hoeveel=0 THEN STOF 

IF hoeveeli=grootte THEN GQ TO spiege 
PRINT groottes "HisBhet#na imam!” 

60 TO invoer 

PRINT "Ik#spiegel# 
LET teller=teller+1 

FOR det TO INT Choeveel/2) 

tijdeli jk=atd) 

draai=hoeveel-d+1 

a{d)=atdraai) 

LET atdraaijstijdelijk 

NEXT d 

GD SUE print 

FOR d=t TO grootte 

IF aCd)s#d THEN 60 TO invoer 

NEXT d 

PRINT "Jefhad#";teller;"#beurtentnadig.” 
STOP 











oeveels "Hgetallen" 








PRINT aCd)gtH"g 
NEXT d 
PRINT 


RETURN 
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1.3 Asteroïden in de ruimte 
(Copyright Neil Streeter) 


U reist door de ruimte in uw ruimteschip als u plotseling in een ruimtestorm terechtkomt. 

U kunt uw schip alleen maar door het puin sturen door het roer te gebruiken (toets '5' naar 
links, en toets '8’ naar rechts) - de voortstuwing is door een van de meteoren uitgescha- 
keld. 

Alsof dit nog niet erg genoeg is zult u merken dat als u de meteorenstorm heeft overleefd u 
zo de weg kwijt bent dat u de verkeerde kant op reist in de ruimtebanen. Al het ruimtever- 
keer komt recht op u af. 

U most dit verkeer op dezelfde manier ontwijken als hiervoor, maar dit is moeilijker omdat 
de ruimteschepen groter zijn dan het meteorenpuin. 

Uiteindelijk zult u ‘crashen’! U vindt dan uw overlevingsscore op het scherm van uw ruim- 
teschipconsole, 


Programma-opbouw 

Dit programma bootst de SCROLL-functie na, die op de meeste computers aanwezig is, 
maar niet op de Spectrum. 

Hetzelfde resultaat kan echter worden verkregen door de waarde van de variabele SCR- 
CT te veranderen (dit gebeurt door een POKE naar het adres 23692 - zie Machinetaalmo- 
nitor-programma voor meer informatie over PEEK en POKE), en dan twee spaties te prin- 
ten op het einde van het scherm (bijv. AT 21,31). 


Als het scherm een SCROLL krijgt dan zal het schip samen met de rest verschuiven. Door 
het schip nu met spaties te overschrijven en het dan weer op de juiste positie neer te 
zetten blijft het schip altijd op dezelfde regel van het scherm, terwijl de rest beweegt. 
Het meteorenpuin en de ruimteschepen verschijnen op een willekeurige positie onderaan 
het scherm, en de informatie over hun posities wordt bewaard in de variabelen a, b, c, den 
e, waarbij e het dichtst bij is. Door nu e te vergelijken met de positie van uw schip bepaalt 
het programma of er een crash dreigt. 

Inelke cyclus wordt er een SCROLL voor twee regels gegeven, dus er verschijnen slechts 
11 meteoorbrokstukken per keer op het scherm. U zou iedere cyclus een SCROLL voor 
maar één regel kunnen geven, maar dan zou er veel te veel puin op het scherm komen en 
u zou twee keer zo veel variabelen in de gaten moeten houden. 


Verbeteringen van het programma 

Het programma is opzettelijk simpel gehouden om u de mogelijkheid te geven het te ver- 
beteren, 

Een eerste stap zou zijn om met de vrij programmeerbare karakters van de Spectrum 
prachtige vormen te ontwerpen voor het ruimteschip en de meteoorbrokstukken. 
Verder zult u hebben gemerkt dat er twee plaatsen in het programma zijn waar geluid door 
de BEEP-instructie geproduceerd wordt. Het doel van deze instructies is niet alleen geluid 
te produceren! Veeg ze maar eens uit, dan zult u merken dat het programma veel te snel 
loopt. 

U kunt dus het programma sneller of langzamer laten lopen door de lengte van de toon, of 
tonen, te veranderen. 

Ook is genoeg tijd over in iedere cyclus om u de mogelijkheid te geven extra schepen die u 
aanvallen te programmeren, of de kans om op meteoren te schieten in te bouwen enz 
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Programma 


Lü 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
ZOO 


REM asteroiden 
LET as="k" 

LET n=0 

LET 
LET 
LET 
LET 
LET 
LET x=12 

LET P=INT (27KRND) 

PRINT AT 21,53 INK (A&RND) sas 
POKE 23692, 255 

FRINT AT 21,31; "44" 

BEEP „3,0 
PRINT AT 10,% 














PRINT AT L1,x aRU” 
PRINT AT 21,515 

LET 

ir LET at: SHI 7 GRU" 











LET t=2 


PRINT AT 10,n=25 "HERH 
PRINT AT 1l,x;"@RS 6 SHI 6 GRU" 
d =ett THEN GO TO 410 











5" THEN LET x 
8" THEN LET 





IE ENKEY/ 
80 TO 180 

PRINT AT 14,15 "CRASH" 

PRINT AT 0,04 "SCORE" sn 

BEEP 2,-12 

PRINT AT 21,03 "DrukkeentwillekeurigestoetstinHtvaortee 





nänieuwekpoging” 


450 
460 


IF INKEY$="" THEN GO TO 450 
RLN 
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1.4 Spectrumklok 
(Copyright Beam Software) 


Beschrijving 

Dit programma is een nabootsing van een ‘real-time’-klok; zowel de gewone klok als de 
digitale klok worden bijgehouden op het scherm. U zult verbaasd zijn over de nauwkeurig- 
heid van de Spectrumklok; en dat niet alleen, u kunt ook nog het alarm instellen en de 
Spectrumklok zal u daaraan herinneren door een toon te produceren. 


Gebrulk van het programma 

Om het programma op te starten moet u RUN intikken gevolgd door ENTER. Dan moet u 
het uur, de minuut en seconde intikken om de klok gelijk te zetten. Denk er aan dat de uren 
op 24-uur basis bijgehouden worden; dus 1 uur 's middags is 13 uur. Het programma 
controleert dan of de invoer legaal is, u kunt bijvoorbeeld geen negatief getal invoeren of 
een getal groter dan 60 bij de minuten. Als u het alarm wilt instellen dan gaat dat op dezelf- 
de manier. 


Een mogelijkheid om het alarm doelmatig te gebruiken is om het programma als ochtend- 
wekker te gebruiken: laat het programma 's nachts doorlopen nadat u de klok gelijk heeft 
gezet en het alarm ingesteld. De televisie kunt u afzetten om elektriciteit te besparen. 
De Spectrum zal het programma blijven doorlopen totdat de wektijd bereikt is, waarna de 
ingebouwde luidspreker een toon produceert om u te wekken. 


Programma-opbouw 
Het programma gebruikt de Spectrum-beeldteller als interne klok. De beeldteller staat op- 
geslagen in drie bytes beginnende bij geheugenadres 23672 met de minst belangrijke 
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bytes vooraan. Elke 20 milliseconden wordt de teller met 1 verhoogd; met andere woor- 
den, het totaal van wat er in de teller staat gedeeld door 50 geeft het aantal seconden dat 
verstreken is sinds met tellen begonnen is. 


De opbouw van het programma is als volgt: 


Initialisatie 
invoer van uur, minuut en seconde 
als alarm ingesteld wordt 
invoer alarmtijd 
stel alarmtijd in op scherm 
teken wijzerplaat 
bereken startwaarde van de beeldteller-bytes 
POKE-waarde in beeldteller-bytes als toets ingedrukt wordt 
definieer functie: aantal seconden sinds start 
initialiseer starttijd 
Hoofdlus 
U: bereken positie kleine wijzer 
M: bereken positie grote wijzer 
S: bereken positie secondewijzer 
teken secondewijzer 
teken grote wijzer 
teken kleine wijzer 
bereken de digitale klok en zet die op het scherm 
bereken uur, minuut en seconde; uitlezing 
aanpassen voor 12 uur 's middags-grens 
als alarmtijd overeenkomt met uitlezing 
flits klok en laat alarm klinken 
haal de beeldteller op totdat 1 seconde verstreken is 
teken nieuwe secondewijzer 
als minuut gelijk is gebleven, ga dan naar S: 
teken nieuwe grote wijzer 
als uur gelijk is gebleven, ga dan naar M: 
teken nieuwe kleine wijzer 
ga naar U: 


Speciale eigenschappen 

DEF FN t() wordt gebruikt om veelvuldig de beeldteller te kunnen gebruiken. 

SIN- en COS-functies worden gebruikt om de wijzers te tekenen. De secondewijzer wordt 
elke seconde bijgesteld, de grote wijzer elke minuut en de kleine wijzer elke 12 minuten. 
Programma houdt rekening met voor- en namiddag-instelling. Programma controleert in- 
voer op juistheid. 


Speciaie opmerkingen 
De Spectrumklok is nauwkeurig tot op 10 seconden per dag, mits de computer niets an- 
ders doet dan dit programma te laten lopen, en geen invoer of uitvoer moet regelen of 
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geluid moet produceren, omdat de beeldteller niet bijgehouden wordt. Nadat het alarm is 
afgelopen moet de klok opnieuw gelijk worden gezet; dit betekent dat u het programma 
een RUN moet geven als u het weer wilt gebruiken. 


Programma 


10 REM klok 
100 GO SUB 540 
110 LET ceFI/50 
120 DEF FN tOEZ=INT ((GSSEOXPEEK 25674+256KPEEK 2367 2+PEEK 
25672)/50): REM aantal seconden sinds start 
150 REM Nu starten we de klok 
140 LET t N EO 
150 LET ui=INT (t1/720) 
1469 LET uzuike 
120 LEE OKSIN ur LET uy=S0XCOS u 




















180 LET (1/50) 

190 LET 

200 LET OKSIN mi LET my=60XC08 m 

210 LET a=tifc: REM a is hoek seconden wijzer in radialen 
220 LET =7EKSIN ar LET sye72XC08 a 





230 PLOT 131,91: DRAW sx,sy: REM teken seconden wijzer 
240 PLOT 131,91: DRAW m,my 

250 PLOT 131,91: DRAW ux,uy 

260 GO SUB 740 

270 LET t=FN t 0 

280 IF téeti THEN GO TO 270: REM wacht op tijd volgende w 


290 LET tist 

200 PLOT 131,91: DRAW OVER 1zsx‚sys REM veeg seconden wi 
jzer uit 

310 IF INT (t1/60)éemi THEN GO TO 210 

320 PLOT 151,91: DRAW mx,mys PLOT 131,91: DRAW OVER Ajmx, 


550 IF INT (t1/720)S=ui THEN GO TQ 180 
340 PLOT 154,91: DRAW ux‚uy: PLOT 151,91: DRAW OVER izux, 


350 60 TO 150 

340 BORDER 7: FAPER 7: INK 
"wWelkttuurtsvp?"s PRINT " (O-— 
370 INFUT Ur IF USO OR U 
ZBO PRINT FLASH 1j INKE 2jll 

390 LET D=: IF Ur=i2 THEN LET Deit LET Uzi UE F12) 
400 PRINT "Welkekminuuk?": PRINT "OR-H59) ! 

410 INPUT Ma IF MEO OR M259 THEN GO TO 410 

420 PRINT FLASH 1; INK 15M 

430 PRINT "Welkettseconde?": PRINT "(OH-HS9) 

440 INFUT S: IF S<ö UR 8:59 THEN GO TO 440 

450 PRINT FLASH 17 INK 

460 PAUSE 50: CLS 

470 PRINT "WiltjethettALARM#zetten?: PRINT " (jfafdn)! 

4806 INPUT a%: IF a$£2"j" AND afs2r"n" THEN GO TO 480 

450 IF af="n" THEN LET alz=0: BORDER O: PAPER Os INK 72 CL 
8 : GO TO 650 





OVER Oz FLASH Os CLS £ PRINT 









Te 85 TO 0 
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500 LET al=A: PRINT « PRINT "Uur?#”; 
SLO INFUT aus IF auc0 OR au?24 THEN 60 TO S10 

520 PRINT au: LET ad=0: IF aurtt THEN LET ad=elt LET auzau 
={aul ID 12 

550 PRINT « PRINT “Minuut?#”: 

540 INPUT amt IF amtO OR am:59 THEN GO TO 540 

550 PRINT am 

560 PRINT 1 PRINT "Secande?#"; 

570 INFUT as: IF as<0 OR as?59 THEN GO TO 570 

580 PRINT as: PAUSE 50 

590 REM Teken wijzerplaat 

400 PAFER BORDER Oz INK 71 CLS z PRINT AT 20,04 "ALARM": 
PRINT aus" "zams"r "zaan "4"; 

Gio IF ad THEN PRINT "VM": GO TO 630 

620 IF ac THEN PRINT "NM" 

630 FOR net TO 12 

640 PRINT AT 1O-1OKCOS (m/&KFI),16+1OXSIN (m/&XPI) jn 

&50 NEXT n 

660 LET dhe=U: LET dm=M: LET des=S 

670 LET T={UKZ6OOHMKLO+E) KSO 

680 LET bi=T-INT (T/256)X256 

690 LET b2=INT (T/256)-INT (T/256"2) 256 

700 LET bA=INT (T/256"2)-INT (T/256 K2T6 

710 IF INKEY&="" THEN GO TO 710 

720 POKE 23674, b FOKE 25473,b2: POKE 2546727,bi 

750 RETURN 

740 LET ds=ti-INT (t1/60)k60: LET dm=INT (t1/60)-INT (t1/3 
GOONKLO: LET du=INT Ct1/5600) 

750 IF de=@ THEN PRINT AT O, 03 "HEEREN" 

760 IF du=13 THEN LET du=du-12 

770 IF dut#12 OR de<>0 OR dms#0 THEN GO TO 810 

780 IF D: THEN LET D= LET du=12: GO TO 810 

790 IF THEN LET LET d 
BOO LET dusdu- (dus AND D=0) 12 

810 PRINT AT 0,Osdus"z"zdmj"e"; FLASH 1jds 
B2O PRINT AT 0,8; "#" 
830 IF D= THEN PRINT "VM" 
840 IF Det THEN PRINT "NM” 
850 IF al=0 THEN RETURN 


























































840 IF au“du OR amtrdm OR astds OR ads:D THEN RETURN 
870 PRINT AT O,Opdug" dmg'r"gder FOR s=22528 TO 23231: PF 
OEE s, 128+PEEK NEXT 

H80 BEEP 0, BEEP 5,20: IF INKEYS="" THEN 60 TO 880 


890 RETURN 
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1.5 3-D Doolhof 
(Copyright Beam Software) 


U zit vast in een doolhof. U moet ontsnappen! De druk wordt steeds groter. U loopt recht- 
door, plotseling is er links een deuropening, snel! Oh nee… het loopt alweer dood! Zult u 
hier ooit levend uitkomen? 

Deze verbazingwekkende 3-dimensionale nabootsing plaatst u midden in het doolhof met 
de taak om de uitgang te vinden. U mag dankbaar zijn dat er geen monsters zijn!! Nog 
niet!! 


U mag er zo lang over doen als u wilt, maar de tijd die u nodig heeft wordt bijgehouden. Op 
elke plaats in het doolhof krijgt u een zeer realistisch beeld te zien. U kunt links- of rechts- 
af (resp. 'o' en de 'p'-toets), rechtdoor (de SPACE-toets) of omdraaien (de ’r'-toets). 
Als u werkelijk verdwaalt kan het een goed idee zijn om een tekening te maken. 


Programma-opbouw 

Dit programma gebruikt de PLOT- en DRAW-functies van de Spectrum. 

Op elk punt in de gang bestaat er de mogelijkheid dat de deur dicht of open is. Dit program- 
ma gebruikt verschillende subroutines om de deur te tekenen, afhankelijk van de afstand 
tot de kijker en of de deur open of dicht is. 

Dit verklaart de verschillende subroutines van regel 6000 tot 8508. 

Een afzonderlijke data-tabel (regel 9100 - 9208) zet het specifieke doolhof op waarin u 
zich op dat moment bevindt. 


Uw eigen doolhof opzetten 

Het doolhof dat hier wordt gebruikt, wordt op een 9 bij 9 raster getekend, zo iets als een 
schaakbord, en elke positie in het doolhof wordt weergegeven door een hokje op het bord. 
Het is duidelijk dat elk hokje in elk van de vier richtingen een muur kan hebben. Dit pro- 
gramma gebruikt twee arrays om de muren bij te houden, een array voor de muren in de 
verticale richting op het bord, en een array voor de muren in horizontale richting. 

In totaal moeten 18 lijnen gedefinieerd worden, 9 verticaal en 9 horizontaal. In elke lijn zet 
u een 0 als er geen muur staat om u de weg te blokkeren, en een 1 als er wel een muur is. 
Het geheelis altijd omsloten door muren, dus deze hoeven niet gedefinieerd te worden. 
Deze informatie is opgeslagen in DATA-statements, regel 9100-9108 en 9200-9208. 
Als u bijvoorbeeld vanaf het hokje linksonder omhoog kijkt, dan ziet u een muur. Als u door 


f 
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die muur heen zou kunnen breken, dan zou er weer een nieuwe staan, en dan weer een. 
Uiteindelijk zou u een gang tegen komen die zich over 4 hokjes uitstrekt tot aan de laatste 
muur. Al deze informatie staat in regel 9100. 


De uitgang wordt in regel 156 vast gelegd. Deze regel stelt dat als u zich in de negende 
baan bevindt, u omgedraaid bent, en minder dan 5 hokjes verwijderd bent van het einde, u 
het bord met UITGANG te zien krijgt. De voorwaarde van 5 hokjes van het einde is nodig 
omdat er een muur staat in dit doolhof tussen hokje 6 en 5 in baan 9. 


U kunt het programma gemakkelijk aanpassen aan een eigen doolhof, maar vergeet niet 
de voorwaarden voor UITGANG te veranderen. 


Programma 


10 REM doalhof 

LOO DIM v(10,10): DIM hi, 10) 

110 GO SUB 9000 

120 LET xei:t LET y=is LET deet: LET dy=0 

125 LET ti=PEEK 25672+256KFEEK 23675+409GKPEEK 20674 
130 LET 1=9: LET Ixeut(dumel)t LET 1y=yt (dye) 

132 LET l=l-it LET Inelxtdx 
134 IF d AND vels, ly THEN GO TO 132 

136 IF dy{20 AND h(x,iy)=0 THEN GD TO 132 

140 GLS : GO SUE 6000+1 

145 LET Iu=lx=tdxe=l)t LET 1y=ly- (dye) 

150 FOR i=l TO 8 

155 LET Ixs=lx=dx: LET Iy=ly-dyt GO SUE 1000: NEXT i 

156 IF dx THEN PRINT AT 10,14; "EXT SHI 
2 UITGANG 
158 LET a THEN GO TO 158 

160 IF af{>"#" THEN GO TO 190 

=l AND vórti,y)=0) OR (dx=el AND v(x,y?=0) OR (d 
Y+i)=0) OR (dy==1 AND hix,y)=0) THEN LET wete 
* LET y=y+dy 

190 IF xel AND y=? THEN GO TO 9990 





































200 IF ie!! THEN LET dxe-dtt LET dy=-dy: GO TO 150 
210 IF THEN GO TO 200 

IF THEN GO TO 150 

IF 1 THEN LET dy=rdx: LET duet 50 TO 150 





250 LET dxedy: LET dy=0: 60 TQ 130 

300 IF ABS duel THEN LET dym=dxe LET dx 
510 LET dx=-dyt LET dy=0: GO TO 130 
1000 IF dxstt THEN GO TO 1100 

1010 IF hlx,lytij=Ò THEN GO BUB 7500+it GO TO 1050 
1020 GO SUB 7000+i 

1050 IF hilx,ly)=0 THEN 60 TO 8500+i 

1060 GO TĲ BOGOHi 

1100 IF dx{r=-l THEN GO TO 1200 

1110 IF GO SUB 7500+i: GO TO 1150 
1120 GO 
1150 IF hûx,‚ly+i)=0 THEN GO TO 850041 
1160 GO TO B000+i 





0: GO TO 130 
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IF dyst-l THEN 60 TO 1300 





































































IF vOlx+i,ly)=0 THEN GO SUB 7500+i:r GO TO 1250 

GO SUB 700041 

IF vilx,ly)=0 THEN GO TO 85004 

so TO B000+i 

IF v(lx,‚ly)=G THEN GO SUB 7500+it GO TO 1350 

GO SUB 7000+ti 

IE vOlx+l,ly)=O THEN GU TO 850041 

60 TO 8000+i 

PLOT 110,76: DRAW 0,24: DRAW 36,0: DRAW O,=24: DRAW 

RETURN 

FLOT 108,75: DRAW 0,26: DRAW 40,01 DRAW 0,-26: DRAW =4 

RETURN 

PLOT 106,74: DRAW 0,28: DRAW 44,0: DRAW O,=28: DRAW —4 

RETURN 

FLOT 102,71: DRAW 0,34: DRAW 52,0: DRAW 0,-341 DRAW -5 

RETURN 

FLOT 94,65: DRAW 0,46: DRAW &5,0: DRAW 0,46: DRAW —68 
„0: RETURN 
6005 PLOT 82,57: DRAW 0,62: DRAW 92,0: DRAW 0,62: DRAW -92 
„O1 RETURN 
&006 PLOT 64,45: DRAW 0,86: DRAW 128,0: DRAW 0,-B6: DRAW =1 
28,0: RETURN 
6007 PLOT 40,29: DRAW 0,118: DRAW 176,0: DRAW O,-118: DRAW 
=176,0: RETURN 
&008 PLUT 8,7: DRAW 0,142: DRAW 240,0: DRAW O,-162: DRAW -— 
40,0: RETURN 
7000 FLOT 108,75: DRAW 2,1: DRAW 0,241 DRAW -2,1: RETURN 
7001 PLOT 106,743 DRAW 2,1: DRAW 0,26: DRAW =2,1: RETURN 
FTOOZ PLOT 102,71: DRAW 4,3: DRAW 0,28: DRAW —4,3: RETURN 
7003 FLOT 94,65: DRAW 8,6: DRAW 0,54: DRAW -8,6: RETURN 
7004 PLOT 82,57: DRAW 12,8: DRAW 0,46: DRAW —12,8: RETURN 
7005 PLOT 64,45: DRAW 18;12: DRAW O, DRAW —18, 12: RETURN 
7006 PLOT 40,29: DRAW 24,16: DRAW 0,86: DRAW —24, 16: RETURN 
7007 PLOT 8,7: DRAW 22,22: DRAW 0,118: DRAW —32,221 RETURN 
7008 PLOT 0,1: DRAW 8,6: DRAW 0, DRAW -E,61 RETURN 
7500 FLOT 108,76: DRAW 2,0: DRAW 0, DRAW 2,0: RETURN 
7501 PLOT 106,75: DRAW 2,0: DRAW 0,26: DRAW —2,0: RETURN 
7502 PLOT 102,74: DRAW 4,0: DRAW 0,28: DRAW -4,0: RETURN 

FLOT 94,71: DRAW 8,0: DRAW 0,34: DRAW —B,C ETURN 

PLOT 82,65: DRAW 12,0: DRAW 0,46: DRAW =12,0: RETURN 
7505 FLOT &4,57: DRAW 18,0: DRAW 0,621 DRAW —18,0: RETURN 
7506 PLOT 40,45: DRAW 24,0: DRAW 0,86: DRAW -24,0: RETURN 
7507 PLOT 8,29: DRAU 52,0: DRAW 0,118: DRAW —52,0: RETURN 
7508 PLOT 0,7: DRAW 8,0: DRAW 9,162: DRAW -8,0: RETURN 
8000 PLOT 148,75: DRAW -2,i1 DRAW 0,24: DRAW 2,1: RETURN 
8001 PLOT 150,74 DRAW 2,12 DRAW 0,26: DRAW 2,1: RETURN 
8002 PLOT 154,71: DRAW —4 DRAW 0,28: DRAW 4,21 RETURN 
8005 PLOT 162,65: DRAW -8 DRAW 0,34: DRAW 8,6: RETURN 
8004 PLOT 174,57: DRAW —12,8: DRAW ,46: DRAW 12,8: RETURN 
8005 PLOT 192,45: DRAW —18,12: DRAW 0,62: DRAW 18,12: RETUR 
N 
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BO06 PLOT 216,29: DRAW —24,16: DRAW 0,86: DRAW 24,16: RETUR 
N 
8007 PLOT 248,7: DRAW —Z2,22: DRAW 0,118: DRAW 2,22: RETUR 
N 


8008 PLOT 255,1: DRAW -B,6: DRAW 0,162: DRAW 8,6: RETURN 
8500 PLOT 148,76: DRAW —2,0: DRAW 0,24: DRAW 2,01 RETURN 
8501 PLOT 150,75: DRAW —2,01 DRAW 0,26: DRAW 2,0: RETURN 
8502 FLOT 154,74: DRAW =4,0: DRAW 0,28: DRAW 4,0: RETURN 
8505 PLOT 162,71: DRAW -8,07 DRAW 0,34: DRAW 8,0: RETURN 
6504 PLOT 174,65: DRAW -12,0: DRAW 0,46: DRAW 12,0: RETURN 


8505 PLOT 192,57: DRAW —18,0: DRAW 0,62: DRAW 18,0: RETURN 
8506 PLOT 216,45: DRAW —24,0: DRAW 0,86: DRAW 24,0; RETURN 


8507 PLOT 248,29: DRAW —32,0: DRAW 0,118: DRAW 32,0: RETURN 






8508 FLOT 
S0OG FOR 
9: READ a 
9010 FOR 
9: READ a: LET v(j,ijs 
#O02G RETURN 

9109 DATA 1,1,1,0,0,0,0,1 
P101 DATA 0,0,1,0,0,1,0,1 
9102 DATA 1,1,0,0,0,0, 1,1 
P10E DATA 0,0, 1, 1,040, 1,0 
P1O4 DATA 1,1,1,0,0,1,1,0 
G105 DATA 1,6,0,0,0,0,0,1 
P10& DATA 1,1,1,0,1,0,0,1 
9107 DATA 1,1,1,0,0,1,1,0 
9108 DATA 1,0,0,0,0,0,0,0 
9200 DATA 0,0,0,0,0,0,0,0 
9201 DATA 1,1,1,1,0,1,0,0 
9202 DATA 0,0,0,0,0, 0,0, 1 
9203 DATA 0,1,0,0,1,0,0,0 


255,7: DRAW -7,0: DRAW 0,162 
TD Sr LET hii,d Iz LET híi,l0= 
LET hi, j)=a: NEXT NEXT 
TO 9: LET vél,ijmeis LET v(lO, idle 
1 NEXT jr NEXT i 















> 0,1 
672+250KPEEK 23672+40FGKPEEK 25674 





9990 LET te=PEEK 
9991 LET tete-ti 
9992 PRINT AT 0,4; "BOEDHGEDAAN! ‘#Jethebt#het##igehaald" 
9993 PRINT AT 1,85 "ink" st/50; "#seconden" 

9994 STOP 
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2. Onderwijskundige programma’s 


2.1 Meetkundige test 
(Copyright Beam Software) 


Toevallig beslaan de testvragen uit dit programma het terrein van de meetkunde, maar de 
opzet van het programma is algemener. Dit programma kan in elke situatie gebruikt wor- 
den waar een serie meerkeuzevragen nodig is. 


Een interessant gegeven van de Spectrum is dat bij een wiskundige test zowel een getal 
als een formule als antwoord geaccepteerd wordt. Bijvoorbeeld op de vraag 'Wat is de 
oppervlakte van een cirkel met straal 29’ zou zowel het antwoord '4 x PY’ als '12.75’ goed- 
gekeurd worden. (Het laatste antwoord wordt geaccepteerd, hoewel het niet helemaal 
correct is, omdat het programma met een afronding van .5 genoegen neemt.) 


Programma-opbouw 

Een korte controlelus in regel 100-260 kiest de vraag, vergelijkt het antwoord met wat het 
zou moeten zijn en zet van toepassing zijnde mededeling op het scherm. 

Elke vraag staat in een subroutine die niet alleen de vraag op het scherm zet, maar ook het 
antwoord specificeert dat goedgekeurd wordt. 

Het moet duidelijk zijn dat het aantal en soort vragen alleen maar gelimiteerd wordt door 
uw voorstellingsvermagen 


Programma 


10 REM meetkunde 
100 CLG 
110 LET INT C&KRND) 
120 LET me2+INT (2OXRND) 
130 GO SUB qx1000 
200 INPUT rt PRINT r 
210 IF ABS (r-a)2.5 THEN GO TO 240 
220 PRINT "JA, #hetbantwoordttist"ja 
2350 GO TO 250 
240 PRINT "SORRY, #het#antwoordtwastt” ; 
250 INFUT "<ENTER>#alstjeftklaartbentk"sys 
260 RUN 
1000 PRINT "Wattistdetontrektvanteentcinkeltnetitstraalk!;m 
1010 LET a=2PIkm 
1020 RETURN 
2000 PRINT “Watkistdekoppervlaktetvanteenttitcirnkelkmet$stra 
al" jm 
2010 LET a=FIkmkm 
Z020 RETURN 
2000 PRINT “Wat#isttdetbuitenoppervlaktetvanteentbol#met#str 
aal#”sm 
3010 LET a= (4/5) KP 1 kmkm 
5020 RETURN 
4000 PRINT "Watkistdetinhaud#vanteentbol#metstraalk";m 
4010 LET a=PIXmkmkm/5 
4020 RETURN 
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2.2 Het huis van Oranje 

Dit programma gebruikt de meerkeuzetest-techniek om uw kennis van de Nederlandse 
geschiedenis op te frissen. 

De computer kiest een jaartal tussen 1544 en 1980 en vraagt dan wie er in dat jaar het 
Huis van Oranje regeerde. U kunt kiezen tussen drie namen. Als er in het desbetreffende 
jaar meer dan één persoon regeerde dan geldt als juist antwoord de eerste regent in dat 
jaar. Tik uw keuze in, alleen de computer weet zeker of u het fout of goed heeft! 


Na 25 vragen beantwoord te hebben krijgt u het resultaat in procenten op het scherm te 
zien. Als u bij elke vraag het antwoord gegokt zou hebben, dan heeft u een kans van 1 op 3 
gehad. U moet dus aardig uw best doen wilt u minder dan 30% scoren. 





Pragramma-opbouw 

De opbouw van het programma is betrekkelijk eenvoudig, maar de manier waarop de 
gegevens opgeslagen zijn is de moeite van het bestuderen waard. 

Daar er voor elk jaartal maar één goed antwoord mogelijk is, door de manier waarop de 
vragen geformuleerd zijn, kunt u gebruik maken van de mogelijkheid om op de Spectrum 
een ‘subroutine’ aan te roepen met een variabele in plaats van een regelnummer. 


Het komt u ook goed uit dat bij het aanroepen van een subroutine op een niet-bestaand 
regelnummer de Spectrum het volgende regelnummer zal produceren enz. 

Bekijk de uitdraai van het programma - u ziet dat er geen regelnummers voorkomen tus- 
sen regel 1586 en 1625. Als de opdracht GOSUB 1600 wordt gegeven dan gaat het pro- 
gramma naar regel 1600, deze bestaat niet, het programma probeert regel 1601 enz. net 


23 








zo lang totdat hij regel 1625 gevonden heeft. Een GOSUB met een getal tussen 1587 en 
1625 levert dus altijd het volgende resultaat op: 


a$ = Maurits 


Dat is al heel wat, want Maurits regeerde tussen 1585 en 1625 en voor deze test was elk 
jaar tussen 1586 en 1625 correct. 


Wat zou er nu met een GOSUB 1586 gebeuren? 

Op regel 1586 staat alleen maar een RETURN-instructie. De aangeroepen subroutine 
komt dus terug zonder informatie over a$. 

Dit probleem wordt opgelost in regel 530 door de subroutine naar een volgende regel te 
sturen als a$ leeg is. In dit geval is dat regel 1587 en krijgt u toch nog Maurits als antwoord. 
Deze programmastructuur zou voor elke andere test, waarin elkaar niet-overlappende 
waarden voorkomen, gebruikt kunnen worden. 


Het Huis van Oranje: 


1544-1585 Willem van Oranje 1751-1795 Willem V 
1585-1625 Maurits 1795-1815 geen Oranje regent 
1625-1647 Frederik Hendrik 1815-1840 Willem | 
1647-1650 Willem Il 1840-1849 Willem Il (2) 
1650-1672 geen Oranje regent 1849-1890 Willem II (2) 
1672-1702 Willem II 1890-1948 Wilhelmina 
1702-1711 Johan Willem Friso 1948-1980 Juliana 


1711-1751 Willem IV 


Programma 


10 REM oranje 
100 DIM p (5) 

110 RANDOMIZE 

120 LET s=0 

150 FOR i=l TO 25 

140 GO SUE 500 

150 LET c$=a$ 

160 GO SUB 500 

170 LET b$=at 

180 IF b$=c& THEN GO TO 1460 

190 GO SUB 500 

200 IF as=b$ OR at=c® THEN GO TO 190 
210 PRINT is". #Wietrageerdetkink" pn; "#7" 
220 LET pCI=INT (SERND) +1 
230 LET pC2)=INT (EXRND) +1 
240 IF piD=p(t) THEN GO TO 2 
250 LET p(5)=b-p (1) -p(2) 

260 FOR tel TO 5 
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FRINT AT S+t,Sptj".#"; 
IF tep(i) THEN PRINT a® 
IF t=p{2) THEN PRINT hé 
IF t=p5) THEN PRINT c# 
NEXT t 

PRINT GT 12,0: 

LET x&= INKEY&: IF x8"1" OR 
IF VAL x&ap{1) THEN PRINT 








sE" E THEN GO TO 330 
PRIMA": LET s=sti: BEEF „5 








BEEP „2,5: BEEP „2,7: GO TO 370 


PRINT "Neett-ithettwastt"; as 
FOR j=1 TO B: BEEP RND/4,1OKRND-30: NEXT jr BEEP 1,-25 


PRINT FLASH 13 AT 20,05 "BHRHERdrukkeenttoetsti ntt 


LET x&=INKEY# 














IF x$="" THEN GO TO 280 
CLS 
NEXT í 
PRINT "JOUW#SCORER ISH"; Ake; "HPROCENT" 
STOP 
LET n=INT (426KRND) +1544 
LET as="#" 
GO SLE n 
IF af="#" THEN GO SUE n+ 
RETURN 
LET as="WillemtvantOran je" 
RETURN 
LET at="Maurits" 
RETURN 
LET a$="Frederik#Hendrik" 
RETURN 
LET af="Willem#11" 
RETURN 
LET at="qeen#0ran je-regent” 
RETURN 
2 LET at="Willem#Iil” 
RETURN 
LET af="Johan#WillemtFriso" 
RETURN 
LET af="Willem#Iv" 
RETURN 
1795 LET abs"Witlemtv” 
1796 RETURN 
1815 LET at="geen#Oranje-regent” 
1816 RETURN 
1840 LET at="Willemtl" 
1841 RETURN 
1849 LET a$="Willem#iig 2)” 
1850 RETURN 
1890 LET at="WiltentEilk(2)” 
1891 RETURN 
1948 LET at="Wilhelmina” 
1949 RETURN 
1980 LET af="Juliana” 
1981 RETURN 
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3. Gokspelletjes 


3.1 Blackjack 
(Copyright Beam Software) 


Dit is het bekende casinospel bij de Club ZX-Spectrum. Welkom! Als een speciale groet 
aan al onze gasten krijgt u van ons een tegoedbon voor $ 100, alleen geldig aan onze 
blackjack-tafels. 

Komt u rustig meespelen. De huisregels zijn als volgt: 

- voordat de kaarten worden verdeeld moet u hebben besloten hoeveel u wilt inzet- 
ten. Denk er wel aan dat de club ZX-Spectrum uw krediet niet verlengt. 

de bank geeft zichzelf een kaart open op tafel, dan krijgt u er ook een. U mag 
daarna net zoveel kaarten bijvragen als u zelf wilt. 

als u de 21 punten niet overschreden heeft, dan geeft de bank zichzelf kaarten bij. 
De bank pakt altijd een nieuwe kaart bij 16 punten of minder, bij 17 of meer past de 
bank. 


Als u wint dan verdubbelt de bank uw inzet, als u gelijk speelt dan wint de bank. Alsu met 5 
kaarten onder de 21 punten blijft dan heeft u gewonnen, mits de bank geen blackjack heeft 
(21 punten met 2 kaarten). Als u zelf blackjack heeft dan krijgt u uw inzet verdubbeld terug, 
mits natuurlijk de bank zelf weer geen blackjack heeft. 

Zet u in dames en heren! 


Programma-opbouw 
De opbouw is als volgt: 


Nieuwe inzet 
invoer inzet nieuwe speler 
als er geen geld meer over is, dan stop 
geef eerste kaart aan bank en speler 


Voor speler en bank 
als beurt aan speler is, vraag dan of hij nieuwe kaart wil 
als niet, ga dan naar bank 
geef kaart en zet deze op scherm 
bereken de waarde van beide kaarten en zet deze op scherm 
als dit meer is dan 21, ga dan naar Uitbetaling 
als bank meer dan 16 heeft, ga dan naar Uitbetaling 


Uitbetaling 
als speler meer dan 21 of bank meer dan of gelijk aan speler, dan uitbetaling = 0 
als Blackjack dan verdubbel uitbetaling 
pot = pot + uitbetaling 
ga weer naar Nieuwe inzet 


De opbouw van het programma is redelijk eenvoudig, u zou dus weinig problemen moeten 
hebben om het programma aan te passen als u de huisregels wilt wijzigen. 
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Grafisch werk 

De subroutine op regel 8000 definieert het ontwerp van de vier kaartsoorten die in 1 karak- 
ter passen. Deze subroutine wordt natuurlijk maar een keer aangeroepen, namelijk aan 
het begin van het programma. 

ledere kaart wordt door de subroutine op regel 8500 op het scherm gezet. Eerst de randen 
van de kaart in lichtblauw en dan het ene karakter dat de soort aangeeft in de benodigde 
kleur (zwart of rood). 


Dan heeft u het probleem hoe u de kaarten zelf op het scherm moet krijgen. Zoals u weet 
heeft u slechts de beschikking over 21 vrij programmeerbare karakters. Daarvan heeft u 
er al 4 gebruikt om de soort aan te geven, zodat u er slechts 17 over heeft. 

Er komen in het spel 13 verschillende kaarten voor, maar als u die in slechts één program- 
meerbaar karakter zou stoppen, dan zouden ze net zo groot worden als een normaal ka- 
rakter. U lost dit probleem hier op door de vaste vorm van elk karakter op te zoeken in de 
ROM waar ze opgeslagen zijn. Vervolgens vergroot u deze vorm twee keer (elke vorm 
wordt dan twee karakters breed en twee hoog) en slaat die informatie op in de program- 
meerbare karakterset als ABCD. Omdat er geen standaard karakter 10’ is, ontwerpt u 
hiervoor een nieuw karakter in subroutine 8000. 

Deze methode is een beetje langzaam, maar in dit programma wel acceptabel omdat het 
de spanning verhoogt van het wachten op welke kaart u gedeeld krijgt. 


Zoals u misschien wel weet wordt elk karakter op het scherm gezet als een groep van 8 
bytes en staan de definities voor de vaste karakters opgeslagen in de ROM te beginnen op 
adres 15616. Het startadres voor ieder karakter kan van de bijbehorende code afgeleid 
worden aan de hand van de formule 15360 + 8 * karaktercode (zie regel 9020). 

Het programma moet dan aan het werk om uit te zoeken hoe deze vorm twee keer dient te 
worden vergroot, om die informatie daarna in de programmeerbare karakterset op te 
slaan, 


Opmerkingen 
In regel 270 zult u een vreemde notering tegen komen; 


LET a = p(i) = 11 


In dit programma wordt de variabele ‘a’ gebruikt om het aantai azen in een hand bij te 
houden. Wat deze regel doet is: 


LETa=0 
IF p(i) = 11 THEN LET a = 1 


waarbij p(i) het aantal kaarten van speler i is. 
De uitdrukking zou als hierboven geschreven kunnen worden, of als: 


LET a = (p(i) = 11) 
omdat u weet dat de ZX-Spectrum een uitdrukking als 0 evalueert als deze niet waar is en 
als 1 als deze waar is. Het blijkt nu dat u de haakjes weg kunt laten zonder kans op fouten 


en zo krijgt u de vreemde doch zeer compacte uitdrukking van regel 270. 
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Een andere uitdrukking die u wat eigenaardig zou kunnen vinden komen we tegen in regel 
530 waar de waarde van p(i) berekend wordt. We hebben eerst een kaartnummer geko- 
zen tussen de 2 en 14, dit getal legt u vast in variabele 'c’, en u wilt nu de waarde van c erbij 
optellen als c kleiner is dan of gelijk is aan 10 (een 'lage' kaart), 10 erbij optellen als c een 
‘plaatje’ aangeeft (c = 12, 13 of 14) en 1 erbij optellen als c een aas aangeeft (c = 11). 

Dit kunnen we doen door te zeggen 


IF ec = < 10 THEN... 
IFe> 10 THEN... 
IFc= 11 THEN... 


maar die ene regel 270 doet het bijna allemaal in een keer. Die vertelt het programma de 
waarde van c erbij op te tellen als c kleiner is dan 12, en er 10 bij optellen als c groter is dan 
11. Simpel nietwaar! 


Regels 540-560 zorgen ervoor dat de aas als 1 of als 11 geteld wordt en vereenvoudigen 
het programma daardoor aanzienlijk. 


SPELER 


En 
K 


Totaal=18 
SPECTRUM 


Totaal=10 
Programma 


10 REM blackjack 

100 BORDER 7: PAPER 7z INK Or OVER Or CLS 

110 LET b$="N23456789TAJOK" 

120 LET a=0: LET m=100 

150 60 SUB 8000 

140 DIM pta) 

150 IF meû THEN PRINT AT 14,1;"Detpotkbevat#$0";AT 19,03" 
Sorry, tuwtkredietkistop, tWetzienwtgraagtterugtal stutmeerkge 
Lditheeft. ": STOP 

160 PRINT AT 10,1;"Detpottbevat#$";m: PRINT “Hoeveel tzet#u 
Hin?” 

170 INFUT b 

180 CLS 

190 IF bèm THEN GO TO 160 
200 LET m=m-b 
210 PRINT INK 0;AT 0,0; "SPELER"zAT 11,0; 
220 PRINT AT 9,1;"Totaal="}AT 20,13 "Totaal 
230 FOR i=2 TO 1 STEP =1 

240 60 SUB 500 
250 NEXT i 

260 FOR iel TO 2 
270 LET a=plijelt 
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280 IF iet THEN INPUT FLASH 13 PAPER 23 INK 7; "Wilttuêno 
gieentkaart?#"jas: LET a$=af+"#": IF a®{l)="n" THEN GO TO 
Z40 
290 GO SUB 500 
300 IF p(i)221 THEN LET i=Z: GO TO 340 
316 IF pli+2)=5 THEN GO TO 340 
520 IF i=2 AND pli)>16 THEN GU TO 340 
350 GO TO. 280 
340 NEXT à 
550 IF p(i)s=21 AND p(3)=5 AND (p(2)£H21 OR p (4272) THEN 
60 TO 280 
360 IF p(l)=21 AND p(E)=2 AND (p(2EF21 OR p (42422) THEN 
LET b=bki.5: PRINT FLASH 1;AT 5,18; "BLACKJACK": GO TO 380 
370 IF (p(2)se21 AND p(2)tepti)) OR p(i)>21 THEN LET bz 
360 LET m=em+2%b 
590 BO TO 130 
BOO LET p(i+2)=p (+2) #1 
S1O LET C=INT (45XRND) 
520 IF cell THEN LET asatl 
550 LET p (Dep (ANtEK (ESL LOR (HLD 
540 IF pli)s22 OR a=0 THEN GO TO 570 
550 LET aza-1 
560 LET plijepti)-10 
570 GO SUB 8500 
580 GO SUB 9000 
590 PRINT INK G;AT 11%i-2,9;p Ci) 
600 RETURN 
B0G0 DATA 0,78,209,81,81,81,78,0 
8010 DATA 102,255,255,255, 126,60, 24,24 
Ba20 DATA 24,50, 126, 255, 255, 126, 40, 24 
8020 DATA 2e, 00 Labiann zn, Ass 60 
BO40 DATA 60,60, 219, 231, 231,219,2 
8050 RESTORE 8000 
BO&O FOR k=USR "e" TO USR "e'+39: READ x: POKE kent NEXT k 
8070 RETURN 
8500 LET p=liki=7: LET q=bkp(i+2)-5 
8510 INK 5: PRINT AT p-5,q3"BRA 5 3 33 5 
=1 TO PRINT AT p=-Ztk,qs" GRA 5 ###8 SHI 
ENT AT p+3,q4"GRA 1 5 3 3 3 2 GRU“: INK 0 
20 LET suit=t+INT (AKRND): INK @k(suits5): PRINT AT p=-2,q 
aac. (148+5uit) 
8550 RETURN 
9000 LET x=USR “a” 






























Zio FOR TO Zi: FOKE xk 
9020 LET CODE b$(c)+1556 THEN LET s=USR 
wen 


9050 FOR j=0 TO 71 LET 
9040 FOR kel TO 1 STEP 
+Skdkd: LET vev-d 

9050 NEXT k 

9060 LET h=INT (c/256)t LET 1=c-256kh 

9070 POKE x‚h: POKE xti,h: POKE x+8,l: POKE x+9,1 

9080 LET xex+2+EK (js) 

9090 PRINT AT p‚q+24"GRA A B GRU"sAT p+t,qt2: "GRA GC D GRU" 
9100 NEXT j 

9110 RETURN 


ge): LET d=256 
d THEN LET czc 
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3.2 Fruitmachine 
(Copyright Beam Software) 


Dit programma bootst een fruitmachine na zoals u die in een café of een gokhal kunt vin- 
den. 

Het grote voordeel van thuisgokken is natuurlijk dat u de 100 gulden die u bij zich had niet 
kwijt bent als u verliest. Maar het is natuurlijk ook een nadeel dat u de winst niet kunt 
opstrijken. 


Het programma Fruitmachine verrijkt waarschijnlijk uw inzicht in de toepassingsmogelijk- 
heden van vrij programmeerbare karakters. In dit programma zult u 60 karakters definië- 
ren voor de 16K versie. Maar op een 48K-machine zou u nog veel meer grafische karak- 
ters kunnen programmeren zonder al te veel extra moeite. 

Doet u dus rustig mee dames en heren en probeer uw geluk! 

U zult op zijn minst onder de indruk zijn van de grafische mogelijkheden van dit program- 
ma. 

Het is duidelijk dat u wint als alle drie de vensters dezelfde afbeelding laten zien, het be- 
drag hangt van de afbeelding af. Als twee aanliggende vensters dezelfde afbeelding laten 
zien wint u ook, behalve als het twee citroenen zijn. 


Programma-opmerkingen 
Het programma ontwerpt een fruitmachine met drie onafhankelijk van elkaar draaiende 
cilinders. Elk venster is opgebouwd uit 20 karakters (4 breed, 5 hoog) en elk venster kan 
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een verschillend plaatje laten zien - citroen, bel, kers enz. 
Daar er slechts 21 grafische karakters mogelijk zijn, beperkt dat meteen onze mogelijk- 
heden. Maar gelukkig heeft u niet alle 60 karakters gelijktijdig nodig. 


Nadat een grafisch karakter eenmaal op het scherm is gezet houden de geheugenadres- 
sen, corresponderende met de positie van dat karakter, hun inhoud totdat er iets anders 
wordt ingezet. Wat u ondertussen met het grafisch karakter doet dat u geprogrammeerd 
had, heeft geen invloed op het scherm. 

U veronderstelt bijvoorbeeld dat u A gedefinieerd had als BIN 01010101, BIN 1010101 0, 
BIN 01010101 enz, en dat u de opdracht 


PRINT AT 0,0; "A" 


heeft gegeven. De acht geheugenadressen corresponderende met (0,0) herinneren zich 
dat als BIN 01010101, BIN 10101010 enz. en niet als ”A”. U kunt dus Aopnieuw program- 
meren zonder dat het gevolgen heeft voor het scherm. Dit geldt echter niet voor alle com- 
puters. 

Dit programma tekent dus vormen, herprogrammeert de karakters, tekent dan weer nieu- 
we vormen enz. 


Programma-opbouw 
100-200 Definieer variabelen 


950-1810 Teken fruitmachine 
en controleer krediet speler 


2000-2239 Hoofdlus 
voor elk venster 
voor elk van de 3 tot 6 plaatjes 
kies een plaatje 
voor elk van de 5 regels 
herprogrammeer karakterset 
vul elk blok op scherm 
volgende regel 
volgend plaatje 
herprogrammeer karakterset 
volgend venster 


2500-2560 Als winst, bereken winst 
Het programma haalt alle informatie uit DAT A-statements, zelfs de inkt-en papierkleur die 


gebruikt moeten worden om het volgende blok te tekenen. 


16K- en 48K-versie 
Zoals het programma nu is past het precies in een 16K-machine. 
Het is niet bepaald efficiënt om informatie in DATA-statements op te slaan (zie de aanwij- 
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zingen bij Meteorenstorm), en er zijn ook geen pogingen ondernomen om het geheugen- 
gebruik te minimaliseren. 

Deze versie heeft 3 verschillende plaatjes: kers, citroen en bel. 

Als u het programma wilt uitbreiden voor 48K dan zult u uw eigen afbeeldingen moeten 
ontwerpen. Bestudeert u hoe dit programma de afbeeldingen in DATA-statements heeft 
opgezet (bijv. de kers in regel 8100 - 8153). 

De door u ontworpen afbeeldingen moeten in DATA-statements gezet worden, te begin- 
nen met een regelnummer 100 groter dan het begin van de laatste afbeelding (in dit geval 
de bel op regel 8310). Denkt u er wel aan dat elke afbeelding uit exact 160 DATA moet 
bestaan. 

De volgende wijzigingen moeten in het 48K-programma worden aangebracht: 


* vanaf regel 9000 staat er voor elke afbeelding een DATA-statement met 10 DATA 
voor INK en PAPER; 

regel 2040 kiest een van afbeeldingen: 

LET plaat = 1 + INT (3*RND) 

verander het getal 3 in het aantal aanwezige afbeeldingen. 


Door gebruik te maken van één van de geheugenruimte-besparende technieken die el- 
ders in dit boek worden beschreven, moet het mogelijk zijn om 5 afbeeldingen in een 16K- 
machine te krijgen. Probeert u het eens! 





Je hebt 9 gulden over 
Toets <ENTER> voor start 


Programma 


10 REM fruit machine 
100 LEF vulhires=5500 
110 LET tekenblak=5100 
120 LET eerste5 
130 LET resathires=5500 
140 LET elsvenster=5700 
150 LET geld=10 
160 DIM er (5) 
170 DIM s(4) 
180 RESTORE 7000 
190 FOR ket TO A: READ s(B)e NEXT k 
200 INK 7: PAPER 5: BORDER S: CLS 
950 REM teken fruitmachine 
940 LET c&="GRA SHI 8 SHI 8 SHI 8 SHI 8 SHE 8 SHI B SHI B 
SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 SHI B SHI B SHI 8 GRU" 
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1000 PRINT AT 1,5:"GRA 4 GRU"ict; "GRA SHI 7 
1010 PRINT AT 2,45" ar 4 SHI & GRU"; CH "BRA end 5 rror 





1020 PRINT AT 2,35:"GRG 4 SHI 8 SHI 8 GRU"sc#;"ERA SHI 8 SHI 
B GHI 7 ## 4 GEU” 
1030 PRINT AT 4,55"GRA SHI @ SHI U SHI B GRU"sc#;"ERA SHI 8 
SHI 8 SHI 8 ## SHI 8 SHI 5 GRU" 
1040 PRINT AT 5,5; "GRA SHI 'e SHI 8 SHI 8 GRU"'sc%; "GRA SHI 8 
SHI 8 SHI 8 ## SHI 8 SHI 5 GRU" 
1050 PRINT AT 6,53" GKA SHI 8 SHI 8 #H## SHI B SHI B SHI Hd # 
Hit SHI 8 SHI G SHI 0 #H#H SHI G SHI B ## SHI B SHI 5 BRU" 
1060 FRINT AT 7,33" GRA SHI 6 SHI 6 ###t# SHI 0 SHI 8 SHI B # 
#hh SHI G SHI G SHI B #### SHI B SHI B ## SHI 8 SHI 5 GRU" 
1070 FRINT AT 8,3:"GRÁ SHI 8 SHI 8 #### SHI B SHI 8 SHI 8 # 
#44 GHI B SHI B SHI 8 #### SHI & SHI B ## 5 GRU" 
1080 PRINT AT 9,35"GRA SHI 8 SHI 8 #H## SHI 8 SHI 8 SHI 8 # 
H4# SHI B SHI B SHI B H##H SHI 8 SHI 8 H# 5 GRU" 
1090 PRINT AT 10,55"GRA SHI 8 SHI 8 H#H# SHI 8 SHI 8 SHI 8 
HHR SHI 5 SHI G SHI & Hitt GHI 8 SHI G Ht 5 GRU" 
1100 PRINT AT 11,3;"GRA SHI 8 SHI B GRU"sc%: "GRA SHI 8 SHI 
8 SHI 8 SHI B SHI 3 SHI 5 SHI 2 GRU" 
1110 PRINT AT 12,3;"GRA SHI 8 SHI B GRU'sct;“GRA SHI 8 SHI 
8 SHI 8 SHI 8 BRU“ 
1120 PRINT AT 13,3;"GRA SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 SHI & 
SHI 8 EXT SHI 0 GRA SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 SH 
I8SHIGEXT SHI 7 GRA SHI 8 SHI GH SHI 3 SHI 8 SHI B SHI 8 
SHI B EXT SHI 6" 
30 PRINT AT 14,3;"GRA SHI & SHI 8 SHI B SHI 8 SHI 8 SHI 8 
SHI 8 EXT SHI 0 GRA SHI 8 SHI 8 SHI 8 SHI 8 SHI B SHI & SH 
I8SHIGEXT SHI 7 GRA SHI 8 SHI 8 SHI & SHI 8 SHI & SHI 8 
SHI 8 EXT SHI 0" 
1140 PRINT AT 15,3:"GRA SHI 8 SHI B SHI & SHI 8 SHI 8 SHI 8 
EXT SHI O GRA SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 SHI B SHI 8 SH 
I 8 SHI 8 SHI 8 EXT SHI 7 GRA SHI B SHI @ SHI 8 SHI 8 SHI A 
SHI B EXT SHI 0" 
1150 PRINT AT 16,3;3"SHI & SHI 8 SHI 8 SHI B SHI 8 SHI 8 SHI 
& SHI 8 SHI 8 SHI 8 SHI & SHI & SHI & SHI 8 SHI 8 SHI 8 SH 
1 8 SHI 8 SHI 8 SHI 8 SHI 8 SHI 8 GEU" 
1160 PRINT AT 17,33"GRA SHI 8 SHI & GRU"zc &; "GRA SHI 8 SHI 
8 SHI 8 SHI 8 GRU" 
1500 GO SUE clsvenster 
1750 IF geld THEN GO TO 1780 
1740 PRINT INK O3AT 20,01"Sormyit-ätjethebttgeentgel dimeer” 
1770 STOF 
1780 PRINT INK O3 AT 20,0; "Jethebtit"s geld: 'kguldentover"gAT 
21,0; “ToetstZENTER voor tstart 
1790 INPUT k& 
1800 PRINT AT 20, 0; "SHEER EAEEEAAE 
Kekidikidaidamikikskikikidihidikihikidikikshiki id 
1810 LET geld=geld-.5 
1826 PRINT INK PAPER OAT 15, LE VRH" GAT 14, 123 "HRHR EAT 
15, 105 CHEER 
1820 GO SUB clsvenster 
2000 REM display alle vensters 
2010 FOR wet TO 2 
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2020 FOR del TO S+EXRND 

2030 LET oudplaat=plaat 

2040 LET plaat=l+INT (SXRND) 

2050 IF plaat=oudplaat THEN GO TO 2040 

2060 FOR 1=5 TO 1 STEF =—1 

2070 GO SUB vulhires 

2080 LET p= 

2090 LET patroon=plaat 

2100 FOR bel TO 5 

2110 LET pepti 

2120 GO SUB tekenblok 

2150 NEXT b 

2140 LET patroaaon=oudplaat 

2150 FOR bei TO 1-1 

2160 LET pep+i 

2170 GO SUB tekenblok 

2180 NEXT b 

2190 NEXT 1 

2200 NEXT d 

2210 LET r(w)=plaat, 

2220 GO SUE resethires 

2230 NEXT w 

2500 IF rite t2) AND rr (3) THEN GO TO 1750 
2510 IF r(2)=2 THEN GO TO 1750 

2520 LET wi 
Zas) IE rik 
2540 PRINT PAPER OAT 1E, 154 "JE" 
wing" GULDEN" 

2550 LET geld=getdtwin 

2560 GO TO 1750 

5100 REM kies goede kleuren voor bla 
5110 RESTORE S000+100%patroon 

5120 FOR cel TO bet 










mer (2) AND r(2)er (5) THEN LET winzs(r(1}) 
zAT 14, 125 "WINT"; AT 





5120 READ ink,paper 
5140 NEXT ec 

5150 READ ink,paper 

5200 REM print een blok 
5210 PRINT AT eersttp, 7kw-2 
5 





ZO FOR cel TO 4 
5230 PRINT INE in 
5240 NEXT c 
5250 RETURN 
5200 REM definieer high resolution karakters opnieuw 
5310 RESTORE 8000+100%plaat+10x1 
5320 FOR he USR "a"+32K1-32 TO USR "a" +3AKL-1 
READ byte: POKE h‚byte 
AD NEXT h 
3250 RETURN 
OO REM definieer hires als kers 
patroons} 
plaat=i 
audplaat=1 
1=5 TO 1 STEP —1 
5550 GO SUB vulhires 





EN 





PAPER paper;CHR$ (144+4%b 
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54600 
5700 
5710 
5720 
5750 
5740 
5750 
5760 
5770 
5810 
Sezo 
7000 
Bodo 
8100 
8110 
8LI1i 
BIL2 
8115 
8120 
8t21 
8122 
8195 


8150 
B1EL 





Eee 
8e 
Bnn 


A25 








RETURN 


REM vul alle vensters met kers 


LET hendel=t: 
FOR wel TO 3 

LET d=l 

FOR bet TO 5 

LET p=b 

GO SUB tekenblok 
NEXT tb 

NEXT w 

RETURN 

DATA 15,5, 12,7 
REM data voor 

REM kers 


60 SUR resethires: 


LET hendel =0 


high resolution plaatjes 


DATA 0,0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0, 
DATA O,6,6, 14, 
DATA 0,0,0,0,0,0,0, 
DATA 0,0,06,0,0,0,0 
DATA 0,0, 1,t,1 2 





DATA 127,191,21,3,0, 


DATA 0,0,0, 128, 128 








30, 30,62, 126 


Ö 


0 


7 2 
„2,22 





DATA 0,0,0,0,0,0,0,0 
DATA 4,4,4,4,4,4,2,2 
DATA 9,0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0 


DATA 0,0,0,0, 1,1 is 


DATA 29,60, 
DATA 
DATA 0,0,0,0,0,0,0, 


126) 255, 


224, 240, 120, 124,7 


1 
255 


255, 255, 255 
i2, 254, 254, 254 













Ö 


DATA 131,0,0,0,0,0,0 


DATA 255, 255, 2 
DATA 254, 254, 252,2 
DATA 0,0,0,0,0, 0,0, 
REM citroen 





55,127,65, 51,7, 0 
„128,0 





„24e, 


0 


DATA 0,0,0,0,0,0,0,0 


DATA 0,0,0,0,0,0,0, 


DATA 7,51, 


DATA 254, 254, 
DATA 7,15, 31 
DATA 192 





DATA 2 5,255, 255, 29 
DATA 255, 255, 255, 2 


DATA 248, 248, 240,22 
6E, 31,0, 0,0 
rj 255, 0,0, 0,0 


4, 128, oi O0 








DATA 254, 248, 2 


127, 255, 254, 248 
DATA 255, 255, 255, 255, 
26,60, 196 


1 


DATA 0,0,0,0,0,0,127,255 
5 DATA 0,0,0,0,0,0, 16,18 
DATA 0,0,0,0,1,1,3,7 












65 
5,255, 255, 255 
Ds 255, 2 


IA, 282,2 





DATA 0,0,0,0,0,0,0,0 
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83500 
8510 
8311 
zt 
8515 

320 
8521 
8522 
8323 
8530 
8351 
8532 
BE5S 
8340 
8541 
8342 
8345 
8550 
8551 
8352 
8355 
S000 
2100 
$200 
2500 
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REM bel 
DATA 0,0,0,0,0,0,0,0 

DATA 0,0,35,14,8,8,12,6 

DATA 6,0,192, 112, 16, 16, 48,96 

DATA 0,0,0,0,0,0,0,0 

DATA 0,0,9,0,0,0,0,0 

DATA 5,15,63,127,127,255, 255, 255 
DATA 192,240, 252, 254, 254, 255, 255, 255 
DATA 0,0,0,0,0,0,0,0 

DATA O,1,1,1,1,1, 1,1 

DATA 255, 255, 255, 255, 255, 255, 255, 255 
DATA 255, 255, 255, 255, 255, 255, 255, 255 
DATA 0,128,128,128, 128, 128, 128, 128 
DATA 1,3,3, 5,347, 14,56 

DATA 255, 255, 255, 255, 127, 127, 127, 255 
DATA 255, 255, 255, 255, 255, 255, 255, 255 
DATA 128, 192, 192, 192, 192, 224, 240, 252 
DATA 31,3,0,0,0,0,0,0 

DATA 255,255, 3,3, 1,9, 0,0 

DATA 255, 255, 128, 128,0,0,0,0 

DATA 252,192,0,0,0,0,0,0 


REM INK en PAPER data voor elk blak 


DATA 
DATA 
DATA 


401,4, 1,4, 1,2, 142,1 
6,4,6,4,6,4,6,4,6,4 
22 Te ETD 





4. Wiskundige programma’s 


4.1 'Bubble’-sorteerroutine 
(Copyright Beam Software) 


Allerlei soorten mensen zijn geïnteresseerd in het werken met computers, maar in de wis- 
kunde heeft het woord sorteren een bepaalde betekenis. Er bestaan namelijk veel soorten 
sorteren. 

Een sortering is een handeling waarmee u orde kunt scheppen in een chaos, vaak wordt 
de sorteerroutine toegepast bij een groot aantal namen of een reeks getallen. 


Het programma dat hier volgt is zowel een demonstratie van de handelingen die bij een- 
sorteerroutine komen kijken, als een basis voor een compacte subroutine die u in uw 
eigen programma’s kunt gebruiken - bijvoorbeeld om een lijst namen en adressen te sor- 
teren, of een hand kaarten in een bridgespel. 

De demonstratie die bij dit sorteerprogramma hoort is grafisch gezien een lust voor het 
oog en tegelijkertijd langzaam genoeg om de theorie van het sorteren goed te kunnen 
volgen. 


De 'bubble’-sorteerroutine 

Het eerste programma is een traditionele 'bubble’-sorteerroutine. Het programma verge- 
lijkt twee opeenvolgende getallen in een reeks en als het eerste getal groter is dan het 
tweede dan verwisselt het programma ze. 

Als u dit programma laat lopen’ dan realiseert u zich al snel waarom het een 'bubble'- 
sorteerroutine heet - de lage getallen lijken naar boven te ‘bubbelen’ en de hoge naar 
beneden. 

Het programma blijft maar twee opeenvolgende getallen verwisselen terwijl de reeks ge- 
tallen steeds beter gesorteerd wordt, totdat er niets meer gesorteerd hoeft te worden. 
Het programma voert de sorteerroutine heel leuk uit en u kunt zien hoe hard de bulldozer 
moet werken om de rotzooi op te ruimen. U zult zich dan ook al snel realiseren dat er een 
betere methode moet zijn om dingen te sorteren. 


Aangepaste 'bubble’-sorteerroutine 

Het tweede programma is een aangepaste ‘bubble'-routine. Het programma is nu niet 
langer bezig om alleen maar opeenvolgende getallen te bekijken, maar is ook bereid om 
veel verder in de reeks te gaan zoeken. 

Dit betekent dat het aantal keren dat getallen van volgorde moeten verwisselen tot onge- 
veer de helft kan worden teruggebracht vergeleken met de traditionele sorteerroutine. 
U kunt óf het tweede programmaintikken van de uitdraai, óf, als u het eerste programma al 
heeft, regel 320, 330, 340, 500 en 510 veranderen. 


Sorteer-subroutine 
U kunt sorteerroutines behalve voor demonstratiedoeleinden natuurlijk ook in uw eigen 
programma’s gebruiken. Het derde programma is een uitdraai van de aangepaste 'bub- 
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ble’-routine in subroutinevorm (regel 8000-8030) die u in uw eigen programma's kunt ge- 
bruiken. 

Deze subroutine gaat er van uit dat de getallen die gesorteerd moeten worden in een array 
p(n) staan, waarbij n het aantal getallen is dat gesorteerd moet worden. 

Programma 3 kan uit programma 2 verkregen worden door regels 110-130 te verwijderen 
en alle regels groter dan 280. Voegt u daarna de nieuwe regels 280-300, 1000-1040 en 
8000-8030 toe. 


Zoals het programma laat zien kunnen 15 getallen in ongeveer 3 seconden gesorteerd 
worden, inclusief de tijd die nodig is om de 15 getallen twee keer op het scherm te zetten. 





Programma 
10 REM bubblet 
BORDER 7 PAPER 71 INK Oz OVER Or CLS 





110 RESTORE 400 

120 FOR i=UER "a" TO USR “d"-1 

130 READ #1 POKE i,xz NEXT i 

140 LET n=15 

150 DIM pn) 

160 PRINT "Wiltje®#zelftdetgetalltentkiezentt(j/n) 7" 
170 LET bé=INKEY$: IF b$="" THEN GO TO 170 

180 IF b$="n" OR bê="N" THEN GO TO 240 

190 PRINT ”"Tikide®lSkgetallenkindiet jetttHitgesorteerdtwil 
t#hebben" 

200 FOR y=l TO n 

210 INPUT py): PRINT p(y) 

220 NEXT y 

230 GO TU 270 

240 FOR xel TU n 





250 LET p GO =1SkKRND+1 
260 NEXT x 
270 CLS 


280 FOR xei TO n 

290 PRINT AT »,Oip Ge) 
300 NEXT x« 

310 LET m=18 

320 FOR i=n-1 TO 1 STEP =1 
350 FOR jel TO i 

340 LET l=j+1 

350 IF p(j)s=p(l) THEN GO TO 
560 LET b8="HARHRERERC TO LEN STRE p(j)): PRINT AT 5,0; 0 
VER 1; FAPER Sjbé 

370 IF l=m THEN GO TO 590 

380 FOR x=m TO 1 STEP SEN (l-m: PRINT INK 24AT x,18;"GRA 
ABC GRU"3AT x+SEN (m-1),18z "tit": NEXT x 

390 LET y=LEN STR$ p(l): FOR x=17 TO y STEF =1: PRINT INK 
Z3AT 1,x5"BRA ABC GRIS" 














400 FOR x=0 TO 104 PRINT nr "ttgp ids INK 25"ERA ARC 6 
RU“: NEXT x 
410 FOR x=l TO j STEP =1: PRINT AT x,11;p (1); INK 25 





BC GRI"3AT zetl, 1Ij HERRRRRRERRR: NEXT x 
A20 PRINT OVER 13AT j,Osp (Gj) 
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430 FOR x=j TO 11 PRINT OVER 13AT X,Osp(j)3AT M,Orptj)t N 
EXT x: PRINT AT 1,03p ij) 
440 FOR x=10 TU O STEF — 
BC GRU"; "#": NEXT x 
450 FOR x=y TO 17: PRINT AT j,x3 INK 23" 
Tx 
460 LET mej 
470 LET tep (1) 
480 LET pep tj) 
4390 LET pijp=t 
500 NEXT j 
510 NEXT 1 
520 FOR x=m TO 18: PRINT AT x,18; INK 2;"GRA ABC GEU";AT « 
1, LEE PRE NEXT x 
50 PRINT AT 21,4 "Wilk jetnogteen#saortering#(j/m #2" 
540 LET b$=INKEYS: IF bé="" THEN BD TO 540 
550 IF bé="j" OR bé="J" THEN RUN 100 
560 IF bé="y" OR b$="Y" THEN RUN 100 
BOD DATA 0,0,2,6, 15, 30,63, 254 
&10 DATA 0,0,63,127,241, 100, 228,4 
&20 DATA 63, 255, 241, 228, 158, 225, 14,4 





PRINT AT j,xspl)s INK 2;"BRA A 











& 


















Programma 


10 REM bubble? 
100 BORDER 7: PAPER 71: INK Or OVER Os CLS 
110 RESTORE 600 
120 FOR isUSR "a" TO UBR "del 
130 READ xz POKE i,xz NEXT i 
140 LET n=15 
150 DIM pn) 
160 PRINT "WiltjetzelfHdetgetallenkkiezentt(j/n) 2" 
170 LET b&=INKEY$: IF b&="" THEN GO TO 170 
180 IF bé="n” OR bé="N" THEN GO TO 240 
190 PRINT ""Tik#deklStgetallentintdiet jetttigesorteerdkwil 
t#hebben' 
200 EOR y= TO n 
210 INPUT py}: PRINT pty) 
NEXT y 
60 TO 270 
FOR zel TO n 
LET p GO =15XRND+1 
NEXT x 
CLS 
FOR x=1i TO n 
FRINT AT x,Osp Geo) 
NEXT x 
LET m=18 
FOR j=l TO n=1 
FOR i=jt1 TO n 
LET l=ntj-itt 
IF plj)s=p{l) THEN GO TO 500 
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560 LET bé="HERRRHAE" C TO LEN STRS p(j))t PRINT AT j,0: O 
VER 1; PAPER Sibt 

370 IF iem THEN GO TO 390 

380 FOR xem TO 1 STEP SEN (l-m): PRINT INK 2;AT x,18; "GRA 
ABC BRU";AT x+SEN (m=1), 183 "RR": NEXT x 

390 LET y=LEN SIR& p(l): FOR x=17 TO y STEP —1: PRINT INK 
23AT 1,x3"GRA ABC GEUR": NEXT 
400 FD 0 TO 10: PRINT AT lx: 
RU": NEXT » 
410 FOR xel TO j STEP -{: PRINT AT isp(l)s INK 2: "GRA A 
BC BRU"3AT x+1, LLg WEREERERHN: NEXT x 

420 PRINT OVER 13AT j,Osp(j) 

30 FOR x=j TO 1: PRINT OVER 13AT x,Oip (js AT x 
EXT xt PRINT pij) 

44 FOR x=10 STEF —1: PRINT AT j,xaptlds INK 24 
BC BRU"3"#": NEXT x 

450 FOR xey TU 17: PRINT AT j 
Tx 

460 LET mej 

470 LET t=p (1) 

480 LET piep (ij) 

890 LET pj =t 
500 NEXT i 

510 NEXT 3 
520 FOR xam TO 
1, 185 "HHN NEXT 
530 PRINT AT 21,05 "Wilt jetnogteentsortering# (j/m) #7" 
540 LET b$=INKEY&: IF b$="" THEN GO TO 540 

550 "OR b&="J" THEN RUN 100 

560 IF bée"y" OR b="Y" TI RUN 100 

600 DATA 0,0,2,6,15,50,63 
&iù DATA 0,0,65,127,241,100,238,4 
&2O DATA 63, 255, 241, 228,1: 


















zp 1) INK 27" GRA ABC G 









INK 2:"HORA ABC GRU": NEX 








PRINT AT x‚18g INK 27 "GRA ARC GRU"GAT x 






















Programma 


10 REM bubble 
100 BORDER 7: F 
140 LET n=15 
150 DIM p{n) 
160 PRINT "Wiltjetelffdefigetallentkiezenkt(j/n) 2" 

170 bi=INKEYS: IF b8="" THEN GO TO 170 
180 "n" OR bé="N" THEN GO TO 240 
190 PRINT *"Tiktde#lö#getallentingdiet jetttigesorteerdtwi l 
t#hebben” 
260 FOR y=t TO n 
210 INPUT py): PRINT p(y) 
220 NEXT y 
230 GO TU 270 

240 FOR x=1 TO n 

250 LET p GO =1SKRND+1 

260 NEXT « 

270 CLS 





AFER 7: INK Os OVER Os CLS 
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280 GO SUB 1000: GO SUB BOOG 
290 GO SUB 1000 

300 STOP 

1010 FOR xe TO n 

1020 PRINT AT x,Ojp Go) 

1030 NEXT « 

1040 RETURN 
8000 REM sorteer subroutine 
BO10 FOR jet TO n=l: FOR i=jt1 TO nt LET len+j=i+l 
8020 IF pli)i=p(j) THEN LET tep{l): LET p(l)=p(j): LET p (5 
)at 
8030 NEXT it NEXT j: RETURN 





4.2 Stelsel van vergelijkingen 
(Copyright Beam Software) 


Dit programma lost een stelsel van vergelijkingen op van het type 
ax +byte=0 


Dit is de algemene vorm van een vergelijking van een rechte lijn en de ‘oplossing’ van twee 
dergelijke vergelijkingen geeft de coördinaten van het punt waar de lijnen elkaar snijden. 


Het programma vraagt voor elk van de twee vergelijkingen de waarde op voor a, ben c, 
waarna de waarden voor x en y berekend worden voor het snijpunt. 

Als de lijnen elkaar niet snijden - ze lopen dan parallel - dan wordt dit door het programma 
aangegeven. 


Programma-opbouw 

Het programmagedeelte dat voor de berekening zorgt is maar vrij kort, het grootste ge- 
deelte van het programma bestaat uit het opvragen van de gewenste informatie bij de 
gebruiker en uit het op het scherm zetten van de resultaten en de grafiek. 


In regel 830 wordt de determinant D berekend, Als D gelijk is aan O, dan bestaat er geen 
snijpunt. 


Regel 900-990 bepaalt in welk kwadrant de lijnen elkaar snijden, en in welke richting de 
grafiek uitgezet moet worden. 


Programma 

100 REM stelsel 

101 REM 

110 REM van vergelijkingen 

120 BORDER 7: INK t: PAPER 7: FLASH Or INVERSE Or ELS 


150 PRINT AT 0,23 INVERSE 13 "STELSEL HVANHVERGELIJKINGEN" 
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140 PRINT AT 2,0; INK 2; INVERSE 1j"alXtbiYtci=0" 
150 PRINT AT 2,16; PAPER &3 INK 0; "a2X+b2Y+c2=0 
160 PRINT AT 4,0; "al="3AT 4,163 "a2=";AT 5,0; "bh 
"b2="3AT 6,03 "ci="tAT 6,16; "c2= 
170 DIM C(&): REM coeficient array 

180 DIM S$(7) 

190 DIM X$(7 

200 DIM Y&L7) 

500 REM 

510 REM invoer vergelijking 1 

520 FOR I=l TO 3 

530 PRINT AT 142,3; FLASH 14“>"; FLASH O4 INK 24 INVERSE 1 
zE" 

540 INPUT S%: LET C(I)=VAL S$ 

550 PRINT AT 1+5, 54 "HRRHHENEERHER"GAT 12,4; ABS CCI) 
560 IF SEN C(I)=-t THEN PRINT AT I+3,3g"=" 

570 NEXT 1 

600 REM 

610 REM invaer vergelijking 2 

620 FOR I=4 TO 6 

630 PRINT AT 1,19; FLASH 1;">"; FLASH 0; PAPER 65" Hitiiitiit 
HEE 

640 INPUT S%: LET C(I)=VAL S% 

850 PRINT AT 1,19; "HHHMEEREHEEENH" GOT 1,20;ABS CCI) 

660 IF SEN C(I)=-1 THEN PRINT AT 1,197 "=" 

&70 NEXT 1 

800 REM 

810 REM bereken snijpunt 

820 PRINT AT 7,0; 

830 LET D=C (2) KC4) CCI) KCE) 

840 IF D=O THEN PRINT FLASH 13"GEEN#SNIJFUNT": FAUSE 100 
RUN 

850 LET BCE KE) CCD KC LAI /D 

860 LET X&=ETR$ At LET A=VAL X$ 








="3AT 5,16; 
































870 LET CAI KC (AICHI KCA /D 

880 LET YS=ETR$ B: LET BeVAL V& 

890 PRINT INVERSE 14"SNIJPUNT:"; INVERSE O7 "HX"; Xb; "HEY 
=tjve 

900 REM 


910 REM teken assen 

920 IF Ars AND B ) THEN LET or 
1,85"0";AT B,85"Y"sAT 21,25 "X" 
950 IF Akzh AND BSO THEN LET oxe 
8,85"0"3AT 21,85 "V"sAT 8,253 "X" 
940 IF A£0 AND H2=0 THEN LET ox=185:t LET oy=0: PRINT AT 2 
„23"0"3AT 21,83"X"GAT 8,253" V" 

950 IF Alù AND E<0 THEN LET ox=i85: LET oy=ills PRENT AT 
8,25;"0";AT B,85"X"EAT 21,233"Y" 

960 LET dx={(SGN A {BEM ALO) 

970 LET dy= (SEN Ee=0)=-(SGN BEO 

980 PLOT ox,oys DRAW INE O7 
K OFO,dyki11 

990 GO SUB 1500: REM teken lijnen 

1000 INFUT "Nieuwettvergeld jkingent (j/n) PH; kt 
1100 IF k$=!"n' OR k&="N" THEN STOP 





272: LET oyz0s PRINT AT 











72: LET oy=ilis PRINT AT 














PLOT ox,oyt DRAW EN 
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1110 IF ké="j" OR k$="J" THEN RUN 

1120 60 TO 1000 

1506 REM 

1510 LET rx=QBS (55/4): LET ry=AES (55/5) 

1520 REM teken lijn 1 

1530 PRINT AT 2,0; INK 2; OVER 1; FLASH 15 "HIHI 
1540 IF C(i)=0 THEN LET ixt=0: LET iyl=-C(3)/C(2): LET ix2 
=2kA: LET iyZeiyi: GO TO 1620 

1550 IF C(2)=0 THEN LET 
2KE: LET ix2eixlt GU TO 1620 

1560 LET ixt=2kA: LET dyle- (0540) Kixi CZ) 
1570 IF dykiy1<0 THEN LET iyi=0: GO TO 1590 
1580 IF (AEG iyl-ABS (24B))20 THEN LET iyl=24R 
1590 LET ix2=01 LET iy2=-C(5)/C(2) 

1600 IF dykiy2<0 THEN LET iy2=0: GO TO 1620 
1610 IF (ABS 1y2-ABS (2KB))*0 THEN LET iy2=24B 
1620 PLOT oxtrukixl,oytrykiyt 

1630 DRAW (AxZ-ixl)krx, GyZ-iyi)kry 

1640 PAUSE 100 

1650 FRINT AT 2,03 INK 2; INVERSE 13 "alXtbiY+cis 
1800 REM 

1810 REM teken lijn 2 

1820 PRINT AT 2,16; OVER 13 FLASH 1; PAPER 67 INK Og "Hitt 
Bite” 

1830 PLOT OVER 1zoxteakinl,oytrykiyt 

1840 DRAW OVER Ig CinZ-ixi)kex, CiyZeiyid key 

1850 IF C(4)=0 THEN LET ix=0: LET iySe-L(6)/C(S)t LET ix4 
=2kAt LET iy4=iy5: GO TO 1930 

1860 IF C(5)=0 THEN LET iy 
=2KB: LET ix 3: GO TO 1930 

1870 LET iu3=2XA: LET iy3=-(C(6)+C(4) Ki) /C (5) 
1880 IF dykiy3£0 THEN iy3=0: GO TO 1900 
1890 IF (ARS iy3-ABS (2KB))>O THEN LET iy3=24H 
1900 LET ix4=0:r LET iy4=-C(6)/C (5) 

1910 IF dykiy4cû THEN LET iy4z0: GU TO 1930 
1920 IF (ABS iy4-ABS (2KE))>0 THEN LET iy4=2E 
1930 PLOT oxtindkex,oytiyskry 

1940 DRAW Cind-ixB ken, (iy4iys) ry 

1950 PAUSE 100 

1960 PRINT AT 2,163 INK Ó; FAFER 63 "a2k+b2vte 
1970 PLOT oxtinikrx,aytiylkrmy 

1980 DRAW (AxZ-ini)kex, CiyZeiyikry 

1990 RETURN 









LET ixt=-C(5)/C(1)1 LET iy2 


























1 LET inde-C(6)/C(4): LET iy4 






















43 








5. Arcade-spelletjes 


5.1 Vlucht ult de ruimte 
(Copyright Clifford Ramshaw) 


Beschrijving 

U bent gevangen genomen door de Alien en u zit vast in een toren die bewaakt wordt door 
de Alien-robot. U moet opboksen tegen de zwaartekracht en de geweldige trekkrachten 
van de Alien die u de toren proberen in te sleuren. 

Erger nog, als de robot merkt dat u ontsnapt dan wordt de bewegende laser-zuigstraal op 
u gericht. Wordt u geraakt, dan wordt u de toren ingezogen en weer gevangen gezet. 
Veel geluk met uw vluchtpogingen! 


Gebruik van het programma 

Tik RUN + ENTER in om het programma op te starten. 

Met de 'w'-toets kunt u omhoog bewegen, met de 'd'toets vooruit. 

Om te kunnen ontsnappen moet u eerst boven de gevangeniscel uit zien te komen. Als u 
daarna niet voortdurend vooruit blijft gaan, wordt u teruggezogen in de toren. Als u de 'w'- 
toets niet gebruikt valt u ook weer terug in de cel. 

Telkens als u neergeschoten bent, of met succes gevlucht bent, stopt het programma. Het 
indrukken van welke toeis dan ook geeft u een nieuw spel. 


Programma-opbouw 

Dit programma gebruikt speciale vrij programmeerbare karakters om de Alien-robot en uw 
ruimteschip te tekenen. 

Een vrij nauwkeurige klok wordt bijgehouden door de interne beeldteller uit te lezen. Deze 
klok berekent hoe lang het duurt voordat u weer gevangen genomen bent, of, als u geluk 
heeft, ontsnapt bent. 


Initialisatie 
zet schermvariabelen op 
zet VPK's op 


Hoofdlus: 
teken toren en grenslijn veilige zone 
zet variabele op 
L1: sla oude positie op 
bereken nieuwe positie 
beweging vooruit? 
nee, produceer geluid 
teken wisselende vorm ruimteschip 
grenslijn bereikt? 
ja, bereid melding voor 
ga naar Tí: 
wordt er geschoten? 
nee en RND <.9, ga naar L1: 
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schietvlag aan? 
nee, zet vlag aan 
bereken uiteindelijke positie robot 
veeg oude robot uit fe) 
breng robot naar volgende positie L 
teken robot 
uiteindelijke positie bereikt? 
nee, ga naar L1: ld 
vuur laserstraal af 
ruimteschip geraakt? 
nee, ga naar L1: 
voer terugtrekroutine uit 
bereid melding voor 
T1: bereken verstreken tijd 
zet uiteindelijke melding op scherm 





hatred 


Opmerkingen 
De berekende verstreken tijd is vrij nauwkeurig en wordt alleen beïnvloed door de tijd die 
nodig is om geluid te produceren. 
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Programma 


100 
120 
500 
510 
520 
550 
570 
580 


9,49, 


590 


400 


‚252, 


REM vlucht uit de ruimte 

so TO B000 

REM 

REM definieer vorm schip 

FOR I=USR "A" TO (USR "J"#7) 

READ m: POKE 1,m 

NEXT 1 

DATA 0,0,0,30,30,49,&1,61,0,0,0,60,60, 198, 246, 246, 65,4 
63,14, 14,2,0,254,198, 198, 254,56, 56, 32,0 





DATA 0,0,0,15,15,49,49,55,0,0,0, 243, 248, 190, 198,222,55 
„63,49,49,65,112,95,64, 222, 254, 198, 198,254,7, 3,1 
DATA 255,255,255,207, 207, 255, 255, 255, 240, 248,252,65,65 
248, 240 
REM 


1000 
1010 
1020 
1050 


REM teken toren 
CIRCLE INK 0312, 167,7 
INK Oz: PLOT 16,15@: DRAW 7,0: DRAW O,-158: DRAW -23, 01 


DRAW 0,23: DRAW 23,0 


1040 
1050 
1060 
1070 
1080 
2000 
2oL0 
2020 
2030 
205 
gr 

2060 
2070 
2090 
2100 
2110 
ur 

2120 
2130 
2180 
2000 
go10 
8020 
8030 
8040 
8050 


PLOT 255,23: DRAW 0,-25 

FOR I=23672 TO 23674: REM inititialiseer klok 

POKE 1,0 

NEXT 1 

RETURN 

REM 

REM terug 

PLOT 24, (2i-ng)48+4: DRAW INK 23 (D=5)X8-1,0 

FOR I={ID+(D>ID)) TO O STEP —1 

PRINT AT H‚1;"GRA AB BRU#": PRINT AT H+i,I4"GRA CD GRU 








BEEP „05, (56E) 

NEXT I 

FOR J=RH TO 18 

PRINT AT J,Og"##"'z PRINT AT Je1,Oj "HR" 


PRINT AT J+1,01"GRA AB GRU": PRINT AT J+2,03"GERA CD GE 
BEEP „05, (24+J) 

NEXT J 

RETURN 

REM 


REM hoofd taap 
BORDER &: PAPER 6: INK Oz: OVER Os FLASH Ot CLG 
RESTORE : GO SUB 500: REM definieer VPK schip 
GO SUB 1000: REM teken toren 

LET S: 1 LET H=2O: LET D 





LET sh=û: LET og=INT (RND 


17) +2: LET fr=sh 


8060 
H070 
8080 
BO90 
8100 
Bi1o 
Biz 
8120 
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KET LET OD=D 
LET k INKEY 
LET HeH+ (H419) — Ck! AND Hei)ki.i LET IH=INT H 





LET D=D+(k&="d" AND HEID) KL.E- (DAE). Er LET ID=INT D 
IF k$CP"d” THEN BEEP „0125, -24 
IF D250 THEN LET D=50 


IF sh=0 THEN GO TO 8170 
LET sh=0 





8140 PRINT AT OH, OD; "##": PRINT AT OH1, Dg "ti 
8150 PRINT AT H‚D; "GRA EF GRU": PRINT AT Hel,Ds "GRA GH GRI" 


8160 GO TO 8200 
8170 LET shel 
8180 PRINT AT OH,ODs "H#"z PRINT AT Edet „OD Pk" 

8190 PRINT AT H‚D; "GRA AB GRU": PRINT AT Ht1,Ds "GRA CD GRU” 





B200 IF D=30 THEN PRINT AT 21,03 "JE#BENTHONTSNAPT#IN#";: G 
0 TO 
8210 AND RNDS.> OR H>19 THEN GO TO 8040 

8220 THEN GO TO 8270 

8230 LET ng=INT (INT (RNDK2)+H)-1: LET ngeng-(ng>18) 

8240 THEN LET ng=2 

8250 (ng tog) = (ngog) 

8240 1 

8270 IF ng=og THEN G0 TO 8310 

8280 PRINT AT og,0s"t##": LET og=ogtgm 

8290 PRINT AT og,0; INK 2;"BRA IJ GRU" 

8300 GO TO 8040 

8310 PLOT 24, (2i-ng)KB+4: DRAW INK 2;214,01 BEEP „2,20 
8520 PLOT DVER 1524, (21-ng)*8+4: DRAW INK 2$ OVER 1;214,0 
: BEEP „1,0 

8530 LET RH=(IH4(H>IH)): IF nqgesRH AND naétRHt1 OR RHY19 TH 
EN LET ér GD TO 8060 

8340 GO SUB 2000 

8350 PRINT AT 21,03 "DE#POGING#DUURDER"; 

8570 LET T=INT (((6SSE6KPEEK 25674+256XPEEK 256754PEEK 2267 
2) / (BOKLO) ) K100) /100 

8380 PRINT Ts "BMINUTEN" 

8590 IF INKEY&="w" OR INKEV$="d" THEN GO TO 8590 

8400 IF INKEY&="" THEN GO TO 8400 

B410 CLS + GO TO 8040 


















5.2 Maanlander 
(Copyright Clifford Ramshaw) 


Beschrijving 

U bent de piloot van een op afstand bestuurde ruimtecapsule die op het ruige maanopper- 
vlak moet landen. 

Elke mislukte poging vernielt de capsule en maakt het onmogelijk dezelfde landingsplaats 
nog een keer te gebruiken. U moet een andere landingsplaats zoeken en een nieuwe 
capsule gebruiken. Als de landing geslaagd is wordt er een vlag geplant ten teken dat u 
aanspraak maakt op dat gebied. 

De capsule is onderhevig aan een constante trekkracht die hem naar rechts doet afwijken, 
tegelijkertijd trekt de zwaartekracht van de maan u naar beneden. 

Veel geluk! 


Gebruik van het programma 
Tik RUN + ENTER in om het programma op te starten. 
Gebruik de ’5'-toets om naar links te bewegen. Met de '7'-toets kunt u hoogte winnen. 
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De ruimtecapsule beweegt constant vooruit, maar verliest gaandeweg hoogte door de 
zwaartekracht van de maan. 

Voor een geslaagde landing moet u de twee poten van de capsule precies op de BLUE 
CYAN-landingsplaats neerzetten. 


Programma-opbouw 

Het programma gebruikt de PLOT en DRAW-instructies om bij elk spel een willekeurig 
landschap ie tekenen. 

Speciale vrij programmeerbare karakters worden gebruikt om de capsule te tekenen. 
De kleurattributen worden voortdurend uitgelezen om te kijken of de capsule te pletter is 
geslagen. 


Initialisatie 
zet VPK's op 
Ht: zet landingsvlag op O 
ga naar Hoofdlus 
Hoofdlus 
zet scherm variabelen op 
teken landschap en landingsplaats 
initialiseer positie capsule 
L4: sla oude positie op 
bereken nieuwe positie 
veeg oude capsule uit 
teken nieuwe positie 
slaat capsule te pletter? 
ja, teken explosie (GOSUB 2000) 
produceer geluid 
ga naar E1: 
landing geslaagd? A 
nee, ga naar L1: 
FLASH BORDER 
teken vlag 
produceer geluid 
E1: PAUZE 
ga naar I1: 





Opmerkingen 

Om te vermijden dat de capsule op het scherm knippert mag er niet te veel tijd zitten tus- 
sen het uitvegen van de oude capsule en het tekenen van de nieuwe. 

Het scherm heeft PAPER WHITE (7) en INK BLACK (0). Te pletter slaan van de capsule 
wordt getest door de kleurattributen uit te lezen; het landschap heeft attributen INK RED 
(2) en PAPER WHITE (7) ende landingsplaats INK BLUE (1) en PAPER CYAN (5). Bij een 
geslaagde landing moeten dus beide attributen van de posities van de capsulepoten 41 
als waarde hebben. 

Indien u dus de kleurattributen van landschap, landingsplaats of achtergrond wilt wijzigen, 
dan moet u ook de testwaarden in regel 8100 en 8150 aanpassen. 
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Programma 


100 
120 
150 
140 
150 
160 
170 
180 


REM maanlander 
RESTORE 7 FOR fel TO 16: REM initialiseer VPK 








LET S=USR (CHRB (1444I-1)) 
FOR J TO 8 

READ q: POKE (S+J-1),0 
NEXT J 

NEXT I 


DATA 0,0, 1,1,7,7,51,25,0,0, 128, 128, 224, 224, 248, 152,55, 


107,127,245,96,96,192,192,172,214,254,207,6,6,5, 3 


190 


„1,7, 


2a0 


„0,0, 


210 


4,96, 


220 
230 
1000 
1910 
1020 
1030 
1040 
R 5: 
RU” 
1050 
1060 
1070 
1500 
1510 
1520 
1530 
1540 
1550 
1540 
1570 
1580 
1590 
1400 
1e10 
1420 
1650 
1640 
1650 
2000 
210 
2020 
2030 
2040 
ue 
2050 
2060 
2070 
ur 


DATA 144,1, 1,1, 1,1, 1,224, 176, 140, 154, 129, 135, 140, 176,1 
1,7,7, 31,25, 224, 128, 224, 128, 224, 224, 248, 152 . 
DATA 0,0,0,4,5,15,6,15,0,0,0,0,%6,192,224,248,27,7,5,6 
0,0, 120, 168, 112,32,0,0,0,0 

DATA 160,67, 38,60, 24,48,96,97,4,154,244,124,6,4,4, 6,19 
32,36, 104,120,79, 193, 130, 14, 12,36, 124,78, 195,2 

LET 1d=û 

Go TO 8000 

REM 

REM teken basis & Landschap 

LET bx=INT (RND&24): IF bxí1i THEN GO TO 1020 

LET 1t=bxk@r LET rt=(bx+4) 8 

PRINT AT 21,bx;"@R& SHI B GRU“: PRINT AT 21,bx+tij PAPE 
INK 1;"GRA SHI & & GRU": PRINT AT 21,bx+3;"GRA SHI 8 G 





LET di=-i:t GO SUB 1500: REM teken linkerlandschap 
LET di=it GO SUB 1500: REM teken rechterlandschap 
RETURN 

REM 

REM teken Landschap 

REM invoer di 

LET 1y=8t(dizi)kië 

Corts) KCdieid AEK (dimi) ) 

255 (diet) 25E 

THEN PLOT rt,‚8: DRAW INK 2;24,16 










LET ry=((as=.b)= (ar. LINT (RNDK4AED) +1) 
LK CENT CRND&16) +1) 

IF dik(lictrx) supkdi THEN LET rxeup=lx 

IF Iy+ry?144 OR lytrys0 THEN LET ry= 
LET Ix=lxtrxr LET Lyelytry 

DRAW INK Ziexery 

IF 1x<rup THEN GO TO 1550 

RETURN 

REN 

REM Explosie routine 

PRINT AT He, X5 "Bi" 

FOR Jet TO 5 

PRINT AT H+1,X;”GRA AE BEU": PRINT AT H+2,X; "GRA CD GR 





BEEF 05, (RNDX48) 
FOR I=i TO LO: NEXT I 
PRINT AT H+1,X7"GRA IJ GRU": PRINT AT H+2,X; "GEA KL BR 
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2080 BEEP „05, - (RNDA48 

2090 FOR I= TO 1: NEXT 1 

2100 PRINT AT H+l,Xs"BRA MN GRU": PRINT AT H+2,X;"GRA OP GR 
u 

2110 BEEP „OG, =(RNDX48) 

2120 FOR Tel TO 10: NEXT 1 

NEXT J 

2140 FOR isht1 TO 20: PRINT AT i 
U"GAT i+i,xs "GRA AE GRU": NEXT i 
2150 RETURN 

8000 REM 

8010 REM hoofd controle loop 
8020 BORDER Zr INK Or: PAPER 7: OVER O1 FLASH O: CLS 

8030 GO SUB 1000: REM teken Land 

8040 LET H=X 

8050 LET OX=X 

BO6O LET X=X+0. SK (X430) =(INKEVS=" 5" 

8070 LET H=H+0, S= (INKEY&="7") $ (HO) 

8080 PRINT AT OH,OX;"##": PRINT AT OH#i, 0 “##" 

B090 PRINT AT H‚X;"GRA AB GRU“: PRINT AT H+1,X;"GRA CD BRU" 














axa HH GAT ins" BRA DC OR 





B1OO LET er=ATTR (H+2,X) HATTR (H42, Xt 1) 

8110 IF ars t 82 OR cr=il2 THEN GO TO 8140 

8120 GO SUB REM explosie 

B130 REEF BEEP BEEP „25,13: BEEP „25,12: BEEF 
„5,10: BEEP „25,1 „25,12: GO TO 8210 

B140 IF Hi=20 THEN 

8150 IF er=82 THEN LET Id=l: GO TO 8170 

B1i60 IF 1d=0 THEN GO TO 8050 

8170 FOR I=1 TO 6: FAUSE 25: BORDER Is NEXT Iz BORDER 3 
8180 PRINT AT 18,bx+1; "GRA EF GRU": PRINT AT 19,bx+1j "GRA G 
H GRU" 

8190 BEEP „125,12: BEEP „25,19: PAUSE 10: BEEP „125,12: BEE 
FP „25,19: PAUSE 10: BEEP „125,12: BEEP .25,19: PAUSE 10: 

EP 125,12: BEEP „25,19: PAUSE A 

8200 BEEP 25,12: BEEP 125,14: BEEP 125,15: BEEP „125,22 
BEEP .125,22: BEEP „125,15: BEEP 125,14: BEEP „125,19: HE 
EP 125,14: BEEP 25,12 

8210 FOR I=1 TO 100: NEXT I: CLS + GO TO 220 
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5.3 Alien-blitz 
(Copyright Clifford Ramshaw) 


De enige verdediger van het ruimtestation bent u. 

Plotseling ziet u ze… boven uw hoofd vliegt seen konvooi vijandelijke Aliens. Ze moeten op 
de hoogte zijn van uw macht want ze blijven veilig buiten het bereik van de laserstraal. 
Maar wat gebeurt er nu? Langzaam maakt een van de Aliens zich los uit de vloot en komt 
in uw richting gedoken. Flappert hij nu met zijn vleugels of is dat een ruimte-illusie? 
Weinig tijd om daar over na te denken - er komen raketten naar beneden suizen. U moet 
hem te pakken krijgen, maar die jongens zijn snel; vlug; stel de laser in werking en haal 
hem binnen. Die hebben we gehad. Maar wat is dat? Er maakt zich weer een Alien los uit 
het konvooi. 

Met de 'Z'-toets beweegt u de laser naar links, met de 'C'stoets naar rechts, en met de 'M'- 
toets vuurt u een straal af. 


Opmerkingen 

Dit programma is een 'arcade’-spel voor de Spectrum gebaseerd op het soort videospelle- 
tjes die u overal tegenkomt. 

De belangrijkste voorwaarden waar het programma dan ook aan moet voldoen zijn de 
snelheid en de visuele effecten. Geluid wordt alleen maar gebruikt als het strikt noodzake- 
lijk is, dit zou anders het programma te zeer vertragen. 


In elke cyclus wordt een minimum aan berekeningen uitgevoerd om de snelheid te maxi- 
maliseren. Er hoeven steeds maar drie variabelen bijgehouden te worden: 


- 2 coördinaten van vijand in duikvlucht; 
- kolompositie van speler. 


De hoofdlus is in 2 cycli verdeeld; één voor vleugels omhoog en één voor vleugels omlaag. 
Hierdoor kunnen speler en vijand sneller reageren. In de cycli zelf hoeven dan namelijk 
geen beslissingen meer genomen te worden over de te tekenen vormen. 

Om de snelheid verder op te voeren worden de kleurattriouten niet afzonderlijk gespecifi- 
ceerd door middel van INK 4 enz, maar worden als controle-codes binnen de PRINT- 
opdrachten gegeven. 

Programma-opbouw 


100 - 340 zet vormen op 
teken konvooi 


500 - 630 eerste deel cyclus 
pas alle posities aan 


650 - 790 tweede deel cyclus 
1900 - 1440 speler of Alien schiet raak 
1500 - 1540 vijandelijk konvooi is vernietigd 
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Programma 


10 REM alien 

100 DATA 14,31,28,24, 16, 16,16, 16,112,248,56,24,8,8,8,8: RE 
M vleugels in ruststand —AE 

110 DATA 5,15,63,127,127,127,255,227, 192, 240, 252, 254, 254,2 
54,255,199: REM bovenste helft alien — CD 

120 DATA 227,227,99,99,127,63,7,0, 199199, 198, 198, 254, 202, 
224,0: REM onderste helft alien — EF 

130 DATA 240,112,56, 248, 124,62,255,30, 15,14, 20,31, 62, 124,2 
55, 120,7,0,0,0,0,0,0,0,224,0,0,0,0,0,0,0r REM vleugels omho 
og =BHIJ 

140 DATA 0,0,0,0,0,0,0,7,5,0,0,0,0,0,0, 224,50, 255,62, 124,2 
48,56,112,240,120,255,124,62,31,28,14,15: REM vleugels oma 
ag — KLMN 

150 DATA 16,16, 16, 16,24, 2 
M vallende vleugels = OP 
1bû DATA 0,0, 12,15, 31,65, 127, 255 
129,0,0,4B, 240, 248, 252, 254, 255: 
170 DATA 66,66, 38,27 trindrherbble 
B: REM vijandelijke raketten — TU 

180 FOR i=USR "GRA A GRU" TO USR "GRA A GRU"+147 

190 READ «1: POKE i,x 

ze NEXT i 

210 BORDER 7: PAPER 7: INK Ó: OVER Or CLS 
LET v=21 
LET s=1 
LET q=5 
LET x=5t4ks 
LET y=0 

270 PRINT TAB x4 

280 FOR i=l TO S-s 

290 PRINT "HEXT SHI 2 GRA CD HHEXT SHI Lea | 

300 NEXT i 

310 PRINT « PRINT TAB x3 

320 FOR i=l TO S-s 

350 PRINT "EXT SHI 4 GRA A EXT SHI 2 GRA EF EXT SHI 4 GRA 
Et EXT SHI 0"; 
3185 NEXT í 

500 LET g=g+ (0427) KCINKEY$="C") — (g>) (INKE Se") 

510 FRINT AT v‚gs"#EXT SHI 2 GRA ORSH EXT SHI ONZAT y‚ns tt 
HEBTEAT yrlong CHEER 

520 LET nent (yr) (yS4)+2KSEN (qe) (RNDE. 5) 2 IE H28 THEN 
T Nel) 
LET y=y+t 
ry "GRA G EXT SHI 1 GRA CD EXT 
“BRA 1 EXT SHI t GR EF EXT SHI £ 
yev=2 THEN GO TO 1400 
De. 15 THEN GO TO 600 
TZ FOR iey+t2 TO vo BEEP „O2,vrig PRINT AT i,xtig "R's AT 
i+l,xtis "GEA TU GRU": NEXT i 
580 PRINT AT i,xtijes#! 
590 IF gex OR =1 THEN 60 TO 1500 
600 IF INKEYS>"m" THEN GO TO 650 
&10 LET me130: IF qex OR gexe-d THEN LET mel57-8Xy 





s1,14,8,8,8,8, 24,56, 248, 112: RE 


24,60, 4), 250, 255, 258, 231, 
M laser basis -ORS 
6, 240,24, 192,12 







































I 0 GRA HB 
KA J GRU" 
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620 PLOT 19+8X7,E: DRAW O,m: BEEP 1,01 IF mi150 THEN GO 
TO 1000 

&30 DRAW INVERSE 170,1: DRAW INVERSE 150, m1 

640 REM tweede cyclus 

“50 LET COE27) KCINEEY Be" "D= (ij) K CINKEY 
650 PRINT AT v‚or"HEXT SHI 2 GRA ORS# EXT SHI 0 
BEHVGAT vel on SEN 

670 LET vert (y>B)-(YSA)+EKSEN (gm) KERNDE. Et IF x228 THEN 









) 
KAT yang dt 














680 LET y=yt1 

&50 PRINT AT y‚x4"GRA K EXT SHI 1 GRA CD EXT SHI 0 GRAL G 
RU"sAT yei,x;"BRA M EXT SHI 1 GRA EF EXT SHI O GRA N GRU” 
700 IF y=v=-2 THEN GO TO 1400 

710 IF RND2.15 THEN GO TO 750 

720 FOR i=y+2 TO volt BEEP .O1,v-it PRINT AT isx+ig "4"; AT 
itl,x+1; "GRA TU BRU": NEXT i 

730 PRINT AT i,ntijeg” 

740 IF q=x OR 1 THEN BO TO 1300 

750 IF INKEY&CH*m” THEN GO TU 500 

760 LET m=150: IF g=x OR gex-l THEN LET m=157-8ky 

770 PLOT 19+8Xg,8: DRAW O,‚m: BEEP 1,0: IF mí150 THEN GO 
TO 1000 

780 DRAW INVERSE 140,1: DRAW INVERSE 170, =m-1 

790 GD TU 500 

1000 FOR yey+l TO v-2 

1008 BEEP ,02,y/2 

1010 PRINT AT y=l,xs"$##R"GAT y‚xs"EXT SHI 2 B 
& GRA CD EXT SHI 2 GRA P EXT SHI 0";AT y+l,x: 
A EF EXT SHI 0 #" 

1015 NEXT 

1020 PRINT AT yton "4" 

1200 LET s=s+1 

1210 PRINT AT yoxs"H#RR"GAT yel.nstHHH"GAT O,Or: IF s{5 TH 
EN 60 TO 250 

1220 IF s=5 THEN GO TO 1500 

1300 PRINT AT v‚g+1;"GRA ORS GRU“; OVER 13AT v‚x+13"ERA TU 
GRU": FOR i=i TO liz BEEP „1,-10: PRINT DVER 1;AT v‚o5 "#GR 
& ORS GRU": BEEP 02,4: NEXT i 

1510 PAUSE 50 

1320 CLS 

1350 RUN 220 

1400 PRINT AT y‚xtRHRBGAT yel,na HGAT 0,04 

1410 IF ABS (x-g)*1 THEN BO TO 250 

1420 PRINT AT v‚g+1;"EXT SHI 2 GRA ORS EXT SHI 0"; OVER 1;A 
T y+i,xs"GRA GB EXT SHI 1 GRA CD EXT SHI O GRA H GRU"3AT y+2 
‚x3 "EXT SHI 1 GRA IEFJ GRU": FOR i=1 TO il: BEEP .1,=10: PR 
INT OVER 1:AT v‚gs"EXT SHI 2 #GRA ORS EXT SHI 0": BEEP „O2 
„4: NEXT i 

1436 PAUSE 50 

1440 RUN 100 

1500 PRINT AT 5,0; "Gefeliciteerd#-#jethebtihettitkAL IEN#ko 
nvaoiktotaal#vernietigd" 

1510 BEEP .5,1: BEEP „05,0: BEEP 
5,012 BEEP .05,-1: BEEP .6,1: BEE 
1520 PRINT FLASH 1; FAPER 23 INK 
HZIINHZERWEER, …… 

1550 FOR iel TO XZ: BEEF 1,20: BEEP .1,0: NEXT i 53 
1540 RUN 100 
























ze [2 


miD 
Ed 
So 


EXT 
SHI & GR 




















S,Tis BEEP „5,9: BEEP „0 
10 
zAT 10,03 "PAS#OP! H-HDAAR 














5.4 Spectrum-Invaders 
(Copyright Beam Software) 


Het is moeilijk te geloven, maar het populairste ‘arcade'-spel aller tijden, het spel dat aan 
de wieg van alle videospelletjes heeft gestaan, kunt u hier op uw eigen Spectrum spelen. 
Deze versie van Spectrum Invaders biedt het volgende: 


* 24 heen en weer bewegende invaders; 

* vloeiende bewegingen op het scherm; 
schilden om u zich achter te verschuilen; 
gevaarlijke bommen van de vijand; 

* laservuurkracht; 

* score wordt continu bijgehouden; 
geluidseffecten; 

het spel wordt na elke golf moeilijker. 


In het spel gebruikt u de 'Z'- en ’C’-toetsen om de laserbasis naar links en rechts te bewe- 
gen. Met de 'M'-toets vuurt u raketten af. 
De verdediging van de planeet ligt in uw handen, aardbewoner!! 


Opmerkingen 

Een van de problemen bij het schrijven van een dergelijk spel in BASIC is het grote aantal 
benodigde variabelen, gecombineerd met de eis van snelle actie. 

Het is eigenlijk niet mogelijk om dit soort BASIC-programma's te schrijven waarin 27 paar 
variabelen (de x, y coördinaten van 24 invaders, laserbasis, vijandelijke bommen en laser- 
raketten) moeten worden bijgehouden om toch nog een redelijk ‘arcade'-spel over te hou- 
den. Het zou dubbel zo lastig zijn om ook nog alles op het scherm te laten bewegen en dan 
ook nog bij te houden welke invader geraakt is bijvoorbeeld. 

Dit verbazingwekkende programma is toch mogelijk dank zij twee eigenschappen van de 
Spectrum: 


een zeer lange ‘string’ op het scherm zetten kost nauwelijks meer tijd dan een kor- 
te 'string'. Het gaat zeker stukken sneller dan een aantal korte ’strings’; 

met de unieke ’string-splitsingsmogelijkheden' van de Spectrum kan een gedeelte 
uit een string worden benoemd bijvoorbeeld: 

LET a$ = (2 to 6) = "HALLO" 


De basis van dit programma wordt gevormd door twee strings, a$ en b$, die voortdurend 
gehanteerd worden. In a$ staan alle invaders opgeslagen, die kunnen dus in een keer op 
het scherm gezet worden enz. b$ is eigenlijk precies gelijk aan a, hij heeft dezelfde leng- 
te, bevat evenveel invaders enz, maar in b$ staan die invaders in een net iets andere 
positie opgeslagen. Door snel te wisselen tussen a$ en b$ lijkt het alsof de invaders hun 
armen, poten enz. bewegen. 

Door a® (en b$) op verschillende posities te laten beginnen kunt u in een keer alle invaders 
op het scherm krijgen en de oude uitvegen. 
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Als een invader door een laserstraal geraakt is dan wordt met behulp van de 'string split- 
singstechniek’ zoals die boven zijn omschreven, zijn plaats in de string opgevuld met spa- 
ties. Het einde van de string wordt voortdurend gecontroleerd om te kijken of er alleen 
maar spaties in voorkomen (dat zou namelijk betekenen dat alle invaders op de onderste 
rij geraakt zijn). Is dat het geval dan wordt de splitsingstechniek gebruikt om de string in te 
korten tot de nieuwe maximale lengte. 

Zo wordt niet alleen voorkomen dat er problemen ontstaan als een string onder de laatste 
regel van het scherm dreigt te komen, maar het geeft ook aan of een string een laserbasis 
geraakt heeft. Een klein bijkomend voordeel is dat naarmate de string korter wordt, minder 
tijd nodig is om het op het scherm te zetten, zodat het spel naar het einde toe steeds 
sneller gaat lopen. 


Programma-opbouw 
100-160 zet VPK's op 


200-625 initialisatie 
het belangrijkste is het opzetten van a$ en 
b$ met behulp van de subroutine op 9000-9030 


1000-1200 eerste gedeelte hoofdlus 
$ op scherm, laserbasis aanpassen als nodig, laserstraal en positie 
vijandelijke bommen aanpassen 


2000-2990 tweede deel hoofdlus 
identiek aan eerste deel, maar voor b$ aanmaak nieuwe bom 


3000-3530 invaders veranderen van richting 
controleer of a$ gesplitst moet worden 


5000-5220 effect van raak laserstraalschot 
6000-6530 effect van rake vijandelijke bom 


8500-8550 einde spel 


Programma 


10 REM invaders 

100 DATA 0,51,65,63, 123, 115, 225, 225,0, 248,252, 252, 2 
135, 155,255,127, 111, 111, 199,192, 240, 240, 255, 254, 246, 
115,15 

110 DATA 7,45,127,65,195,199, 255, 124, 224, 252, 254, 151,131,2 
27,254,62, 124,127,51,48,112,B8, 136, 248, 254, 204, 142,26, 17,31 
„0,0 

120 DATA 31,63,63,115,115,225,225,255, 248, 252, 252, 206, 142, 






246,2 
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135, 135, 255,127,111,103, 105,96, 48,60,60, 254, 246, 250, 220,6, 1 
2,60, 40 

130 DATA 7,65,127,193,195,199,127,124,224,252, 254, 130, 131, 
227,255,62,127,51, 114,88, 136, 24B,0,0,62, 254, 204,12, 14,26, 17 
31 

140 DATA 24,24,24,24,60,126,231, 231,7, 31,63, 60, 112, 112, 248 
„248, 224, 248, 252,60, 14, 14,31, 31 

150 DATA 18,26,14,14,7,2,1,0, 56,44, 56,56, 112,96, 192, 128 
160 FOR i=USR "a" TO USR "a"+167: READ x1 POKE i,x: NEXT i 


200 BORDER 7: PAPER 72 INK Oz CLS 
210 PRINT AT 0,0; "score"sAT 0,223 "levens 





220 

230 

250 LET faftls IF f=ti THEN STOP 
300 hehikshahiksii dede hakiaakshikikikikekshahinikikiki kiki kil 


44 
BO SUB 9000 
LET k$=zaktbbtot 
GD SUB 9000 
LET 1$=zabtbht+es 
50 SUB 9000 
LET mzabtb$tas 
80 SUB 2000 
590 LET n$zafth$teh 
at=kSti$tkS+ik: LET af 
b$=mstn$tmstnE: LET hé 
k$="GRA 4 SHI 4 37 SHI 
bb BRU Hit": LET m 





EC TO 245) 
&( TO E45) 
BRU Hiks LET 1e 
Hl SHI A U Ht 












RA 








510 PRINT INK 4;AT 16,23kéjk&ikbikbrl6: lS: ls:lbimbimtimb: 


LET s=i01 LET 
3 LET LET 
&15 LET d=21: LET z 
620 PRINT AT 20,305c% 
625 LET lie 

1000 FOR p=r TO s STEP t 

1010 BEEP .OO5,1: PRINT AT q,Osc®( TO p)sa$;AT 20,1;"# GRA 
OERS GEL" 

1020 IF uiq THEN GU TO 1050 

IF SCREENS (u,vo<z'&" THEN GO SUE 5000 

| THEN PRINT AT u, vs" BEA 2 BRU'SAT uitt, vant” 
+(LCZB) KCINKEY Br") = (1 HO) X CINKEY Se "2 ") 

“tm THEN 60 TO 1080 


tel 





LET y=0 



















GD TO 1200 
(dre) "THEN GO SUE 6000 
(dyeti) ss!" THEN GO SUB 6000 
IF 20) THEN PRINT AT d=l,es"4B"s INK 2; AT d, es "GRA 
TU GRU" 
1200 LET w 
2010 PRINT AT q,Osc4( TO p);b$:AT 2 
BARBARA SDH GRU" 








„ii GRA CRB 
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2020 IF uiq THEN GO TO 2050 

2055 IF SCREENS (u, vò2"#" THEN GO SUB 5000 

2040 IF ur=q THEN PRINT AT us vs” A 0 BRU"GAT uti, vs” 
2050 LET l=l+ (120) XCINKEY tet) 1 OK CINKEYSn"z") 

2040 sql OR INKEYSX THEN GO TO 2080 

2070 Û: LET veltlt 

2100 IF de=20 THEN GO TO 2130 

2110 LET WINT (GXRND): LET x$zab{LEN af-Akw-2): IF x$Z2"GR 
AG GRU" AND x&s>" GRA G GRU" THEN GO TO 2130 

2120 LET deg+1+INT (LEN a®/32): LET esp-4kwt20+t 

















2125 THEN LET & 

2150 O THEN PRINT AT 20,es "ii" 
2200 LET usurl 

2210 cht d 


299) 








THEM GO TO 5500 
LET r=?: LET 





ie 





IF LEN a$?>55 THEN GO TO 3510 

F at(23 TO s=c$ THEN GO TO 250 

F a$(LEN a%-32 TO )=ct THEN LET a$=a®( TO LEN a%-?6) 
*( TO LEN a%) 

S2Aq+LEN a%>609 THEN GO TO 8500 

LET r=û: LET g=1û: LET tel 

PRINT AT q,0sc®: LET q=qti: GO TO 1000 

5000 IF ATTR (u,v)=60 THEN GU TO 5100 

5005 IF ATTR (u,v)=58 THEN GO TO 6000 

5010 LET heveptE2k (urq=i) 

5015 BEEP „05,8 

5020 IF hè=0 THEN GO SUB 5200 

5030 LET h IF hiLEN a® THEN 50 SUB 5200 

5040 LET h= IF hxLEN a& THEN GO SUB 5200 

5050 LET h=4-INT (hn/26) 

5040 LET sc=sc+100kht PRINT AT O,bssc 

5100 REM explosie 

S110 PRINT INK 6;AT u‚vs"GRA BA GEU"JAT utl,vi"GRA SR GRU" 
z BEEP .05,10: PRINT AT u‚vs"##";AT uti, vs tl" 

5120 LET uz 

5130 RETURN 

5200 IE h=0 THEN LET hel 

5205 LET a$(h TO h+2 
5210 LET b&(h TO h+ 
5220 RETURN 

&000 REM test wat alien kogel geraakt heeft 

6005 IF d=2 THEN GO TO 4018 

6010 PRINT AT d=l,er"#B"; INK Z:AT d‚e:"GRA AB GRU“: BEEP 
05,=101 PRINT AT de; "HR" 

&GOI2 IF (vze OR v=eti) AND deu THEN PRINT AT uwva"#"sAT ut 
1,vz" ts LET u=0 

BGO15 LET de21: RETURN 

6020 PRINT AT d=l,eg "HR"; INK 2EAT des” 
05,10: PRINT AT d‚es "Hi" 

6030 FOR kel TO 101 PRINT OVER 14AT 21, 
EP „1,01 NEXT k 

6040 LET li=li=1 

G050 PRINT AT 0,294 "HRR"GAT O,2Op Penn TO Li) 
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6060 IF li=Ò THEN GO TO 8510 
6500 REM projectielen raken elkaar 

&S10 IF dí<=20 THEN PRINT INK &3AT d‚es"GRA BA GRU";AT del 
ves "GRA SR GRU": BEEP „05,10: PRINT AT due; "HR"; AT d+l,ei"# 
ed 

6520 LET u=0: LET d=2 

6530 RETURN 

8500 PRINT AT q,Osctsat 

8510 PRINT AT 5,0; "##Detinvaders#landentop#aarde.": PRINT " 
HkAllestistverloren! 11° 

8520 INPUT *Wilfjetnogteentkeer?";ns 

8530 IF LEN né=0 THEN ‚GO TO 8520 

8540 IF n&(1)="j" OR n$lij="J" THEN RLN 200 

8550 STOP 

9000 LET as=CHR$ (5)+CHR$ (sti)t"HH": LET a$vaftattattattat 
tastten” 

GO10 LET bS=CHR$ (242) +CHRE (54E) 4" HH": LET bisbfthbtbktbE+ 
b$thst HRH 

9020 LET s=s+4 

2030 RETURN 











5.5 Meteorenstorm 
(Copyright Beam Software) 


‘Meteorenstorm’ zet u achter de stuurknuppel van een ruimteschip dat door de asteroï- 
dengordel raast. Op het scherm heeft u een fraai uitzicht op het zonnestelsel vanuit het 
midden van de ruimte. 

In de verte kunt u Saturnus met haar ringen zien, en daar achter de talrijke sterren van de 
nabij gelegen melkwegstelsels. 

Plotseling waarschuwt de boordcomputer voor een Meteorenstorm! Voor uw ogen ziet u 
een meteoor steeds groter worden terwijl u er recht op af vliegt. De alarmerende situatie 
wordt bevestigd door de boordradar die de snel naderende meteoor op het scherm heeft. 
‘Meteorenstorm' is een 3D-computerspel op zijn best. 


Gebruik van het programma 

Nadat RUN + ENTER ingetoetst zijn komt het bekende instrumentenpaneel tot leven. 
Een richtkruis in het midden van het scherm markeert het doel waarop de laserstraal ge- 
richt staat. Met de volgende toetsen kunt u de straal besturen: 


‘en'P' naar links en rechts 
'W' en 'X' omhoog en omlaag 
’o vuur 


Onthoud wel dat, net als in de meeste BASIC-programma’s, maar één toets tegelijk kan 
worden gebruikt. 


Het richtkruis loopt door over het scherm - dat wil zeggen dat als u te ver naar rechts gaat 
op het scherm, het kruis automatisch weer links terugkomt. 
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De laser kan altijd afgevuurd worden, maar als er geen asteroïden geraakt worden dan 
verdwijnt de straal met een dof geluid in de ruimte. Raakt u wel iets, dan kaatst de straal 
zonder gevaar terug. 

Naarmate u verder in de meteorenstorm verzeild raakt, komen de asteroïden steeds snel- 
ler op u af. Hoeveel kunt u er afschieten als u maar drie levens heeft? 





Programma-aanwij 
Dit programma maakt uitgebreid gebruik van de OVER-opdracht van de Spectrum en de- 
monstreert de mogelijkheid om VPK's opnieuw te gebruiken. 

In het begin van het programma worden de VPK's gebruikt om het instrumentenpaneel, 
het radarscherm en Saturnus te tekenen. Dit is de enige keer in het hele programma dat ze 
op het scherm gezet worden. Hierna worden de VPK's onmiddellijk gebruikt om de aste- 
roïden op het scherm te zetten! 

Dit is mogelijk omdat het scherm niet afhankelijk is van karakters - als iets eenmaal in het 
schermgeheugen staat dan blijft het scherm dit tonen totdat deze informatie door andere 
vervangen wordt. 





Het grote voordeel van het gebruik van OVER moet nu duidelijk zijn. Door heel goed bij te 
houden wat er op het scherm is gezet en door er voor te zorgen dat iets alleen uitgeveegd 
wordt als daarna op dezelfde positie de originele informatie weer terug gezet wordt, kunt u 
alle informatie in het oorspronkelijke formaat bewaren. 
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(Als u iets twee keer met een OVER-instructie op het scherm zet krijgt u weer te zien wat 
oorspronkelijk op die plaats op het scherm stond - probeer maar!) 


Programma-opbouw 


100 - 200 


200 - 340 


400 - 590 


900 - 1100 


1200 - 1500 


3000 - 3100 


4000 - 4880 


zet volgende karakters op: 
ronde hoeken 

ruimteschip op radarscherm 
Saturnus 

kleine meteoren | (ABCD) 
kleine meteoren |l (EFG) 
meteoren III (HIJK) 
meteoren IV (LM) 

explosie |__(NOP) 
explosie Il (QRS) 


zet instrumentenpaneel op 


zet nieuwe karakters op 

initialiseer en FLITS-melding 

b$ opzetten kost de meeste tijd, deze array 
bevat willekeurige meteoorvorm die gebruikt 
wordt bij laatste botsingexplosie 


belangrijke variabelen: 

xy richtkruispositie 

ox‚oy oude richtkruispositie 

li aantal levens 

ms __meteoorstand (0-9) 

di moeilijkheidsgraad 
mx‚my meteoorpositie 

v INK-kleur onderrichtkruis 


hoofdlus: 
test toetsenbord, beweeg richtkruis 


laservuur 
subroutine om radar aan te passen 


subroutines om meteoor in verschillende afmetingen op scherm te zet- 
ten 


5000 - einde routine voor botsing met meteoor 


Opmerkingen 
Door het veelvuldig gebruik van DATA-statements wordt veel geheugenruimte in beslag 
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genomen. Als u geen speciale maatregelen genomen zou hebben, dan zou dit program- 
ma niet in 16K passen. 

Elk getal in een DATA-statement, maar ook in de rest van het BASIC-programma, bestaat 
niet alleen uit de karakters die het getal vormen, maar wordt ook nog gevolgd door een rij 
van 6 bytes die de Spectrum-ROM nodig heeft om de waarde van dat getal te kunnen 
bepalen. Een DATA-statement met 32 getallen van gemiddeld 3 cijfers zal dus ongeveer 
300 geheugenplaatsen in beslag nemen. Als u nu vaak voorkomende getallen vervangt 
door variabelen dan bespaart u een aanzienlijke hoeveelheid geheugenruimte. 

In het begin van dit programma worden dan ook de getallen 0 en 1 vervangen door varia- 
belen. 


Programma 







100 DATA 255,7 2,192, 120, 128, 128, 255, 31,7, 3e Ss Usus 
u, 128, 128,128,192,192,224,248, 255, u, ur us 3, 307431, 255 

110 DATA z‚z,128,192,251,255, 255, 250, 2,2,242, 192, 240,60, 25 
54u, 3,7, 14,2, 242,2, 240, 224, 120,2, 2e, 
120 DATA z,3,7,15, 15,31, 31, 127,2, 192 248, 248, 254, 253,2 
49,127,220,192,115,31,7,3,2, 195,4, 60, 248, 248, 240, 192,2 

120 DATA z,z,u,3,7,7,7,2,2,4,6,15,51,51,65, 14,2, 4, 14,31, 63 
‚63,63,31, 30, 30,28, 12,22, d,E 

140 DATA 31,65, 31, 31,15, 6,22, 
224, 224, 192, 24E, 
150 DATA 5,25,55,65,127, 127, 127, 127, 128, 224, 240, 240 4,24 
8,248,252,127,63,63, 127,65, 51, 11,2, 252, 252, 248, 224, 240, 224, 
128 
160 DATA &3, 127, 255, 127, 255, 255 
‚248, 248, 252 

170 DATA 195, 155,60, 102, 102 195, 195,99, 59, 60,60, 180 
„281, 231, 128,60, 230, 255,91, 200, 221, 119 

180 DATA 38,62, 246, 254, 108,71,227,62, 115,55, 246, 180,28, 188 
„246,99, 221, 118,1 „128 

ZOO BORDER 5: INK 5: PAPER 6: 
ZIU RESTORE 100 

220 FOR i=USR "a" TO US 
250 READ x: POKE i,xa NEXT 
240 DIM s(10) 

300 PRINT AT z,z;"GRA A GRU";AT z,513"GRA B BRU'SAT 18,75" 
GRA C GRU";AT 18,51;"ERA D GRU” 

510 PRINT "GRA SHI 8 SHI 8 SHI & SHI 8 SHI 8 SHI 8 SHI & 5 
HI 8 SHI 8 SHI 8 SHI B SHI B SHI à SHI 8 SHI 8 SHI 8 SHI 8 
SHI 8 SHI 6 SHI 8 SHI 8 SHI # SHI 8 SHI 8 SHI 4 SHI B SHI 8 
SHI 8 SHI 8 SHI 8 SH1 8 SHI B GRU": PRINT "GRO SHI 8 Asti 
HIERHEEN SHI GO SHI 8 SHI 4 18 ARHHHHHE 5 SHI 
CHHHEEEIEMAIEED SHI B SHI G SHI G SHI B CHHHHHHED SHI 8 G 


gu“ 






















sz, 128,192,224,224, 224, 




















252, 248, 252, 204, 254 



















































J PRINT INE z 
AT 21,25; "levens 
330 FOR i=u TO 5 
NEXT i 








PRINT _ INK AT Le LEERND, UERPKRIDG „5 
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340 PRINT INK Z4AT 6,10; zAT 7,105"GRA KL GRU" 





460 FOR USR "a" TO USR * 
410 READ x:t POKE i,xa NEXT 
42O PRINT OVER us FLASH us INKE 2;AT 10,43 
BVLUCHTHIN"GAT 11, 103 “METEORENKSTORM" 

450 LET b "e FOR jeu TO 17 

A35 BEEP 
440 LET a 
450 FOR i 
460 IF RND>.& 

470 LET afzast Ht" 
475 BEEP „005,10 
480 NEXT i 

490 LET hiebftak( TO 29) +4: NEXT j 

AT 10,43 "ELAARMAKENHVOORHVLICHT 








„AARMAKEN#VOOR 









ABHEHES (1441 2KRND) 


























500 PRINT OVER us FLASH 
HIN";AT 11 Os "METEORENHET ORM” 
520 LET LET oy=15 

550 LET 9: LET yell: 

540 INK z BEN at x 

550 LET 1 

560 LET msez 

580 LET mx=utRNDK17: LET myeutRNDK29 
50 LET mizu 

900 LET a INKEY$ 

910 LET ms=mstdi/7tnm/50 


920 IF INT ms=9 THEN GO TO 5000 

930 GO SUB 3000 

940 GO SUB 4060+100XINT ms 

950 LET W=ATTR (x,y) -BKINT- (ATTR Ot,y)/B): IF wi20 THEN L 
ET ven 

240 IF abe"! OR s 0" THEN GO TO 1070 

1000 LET y=oyt (at ela ) 

1010 IF yiu THEN LET y=i0 

IF y>50 THEN LET yzu 

1030 LET x=ox+(af="x")= (a 
1040 IF x{u THEN LET x=17 

1050 IF x>17 THEN LET x=u 

1060 LET v=ATIR Ot, y)=BKINT (ATTR x,y) /8) 

1070 PRINT OVER uz INK ov; AT ox,oys"+"s INK zrAT x‚ystt” 
1090 LET ox=x: LET oy=y: LET ovev 

1100 IF a${:"a" THEN GO TO 900 

1200 FOR i=u TO 6: BEEP iki/100,10/iz NEXT i 

1250 IF véru THEN GO TO 900 

1260 LET ui IF xitz THEN LET x1 
1270 LET yi=y-u:r IF yisz THEN LET y1 
1275 LET x2extur IF #2>18 THEN LET 
1280 OVER ur FOR isu TO 10: BEEP .03,3: PRINT AT x,y; "GRA 
BRU": BEEP .Ol,ur PRINT AT x1,yi;"BRA OPO BRU"sAT x,yi; "GR 
A OND GRU";AT #2,y1;"ERA RSR GRU": NEXT iz OVER z 

1290 DIM s(10): LET mi 
1300 FOR i=INT ms TO z STEP u 

1310 LET ms=it GO SUB 4000+100ki: GO SUE 2000 
1320 NEXT i 

1340 DIM s(10) 












wi) 

















=18 
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1360 LET over: LET vez 
1370 PRINT INK z; OVER zj AT 20,2 
1380 PRINT OVER uz INK 27AT &,103"BR"GAT 7, 
1500 60 TU S4ó 

3000 IF INT msí4 THEN PRINT INK usAT 20, 14-ms;"# GRA B GR 
ys 

5010 IF INT ms=4 THEN PRINT INK usAT 20,9:"t# GRA B GEU # 
Pf 

3020 IF INT ma>4 AND INT mscB THEN PRINT INK usAT 20,18-2 
KINT ma;"## GRA E BRU Hi" 

3030 IF INT ms=G THEN PRINT INK u;AT 20,4;"GEA B GRU 4e" 
3040 RETURN 

4000 IF (tzu THEN RETURN 

4010 PRINT OVER us INK mij AT mx, my 
4020 LET s(1)=u 

4030 RETURN 

4100 IF s(2)=u THEN RETURN 

4110 PRINT OVER us INK misAT mx,mys "ERA B GRU" 

4120 LET s (2) =u 

41:50 RETURN 

dan IF s(E) u THEN RETURN 

PRINT OVER us INK mis AT mx,mys "GRA BF GRU" 

LET sCH= 

RETURN 

IF s(4)=u THEN RETURN 

4E1O LET mx4emxtu 

4320 PRINT OVER uz INK misAT mx, my; "GRA BF BRU"3AT mx4,mys 
"ERA D GRU” 

4330 LET s(4)=u 

4340 RETURN 

4400 IF s(S)=u THEN RETURN 
4410 PRINT OVER us INK mizAT 
GRA E GRU" 

4420 LET s(5)=u 

4450 RETURN 

4500 IF s(&)=u THEN RETURN 
4510 PRINT OVER us INK mizAT mx,mys"GRA CF GRU"AT mea, mys 
“ERA EG BEU" 

4520 LET 26) u 

RETURN 

IE s(7)=u THEN RETURN 
PRINT OVER us INK mis AT 
GEA JK GRU" 




























GR& C BRU'GAT mx4, my" 





myz "GRA HI GRU“SAT m4, my; 








LET s(7)=u 

RETURN 

IF SB) THEN RETURN 
LET mx et 








LET myé=my+2: IF my62El TH 
LET mxö=mxt2: IF mxS218 THEN 
4740 LET mySemy-u 

A70 PRINT OVER us INK misAT mx2smys "GRA CF BRU"ZAT mx, m 
;"GEA C SHI B SHI B BRU';AT mx,myós"BRA F GRU“zAT m4, my 
GRA E SHI 8 SHI 8 BRU';AT mx4,myé „my: "GR 
â EG GRU” 

4750 LET s(@) =u 


N LEET mda 
LET mx5=18 
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4770 RETURN 
4800 IF s(9)=u THEN RETURN 












4810 LET mx is 

4820 LET 

4850 LET 

4840 LET mbr18 THEN LET 
4850 LET mxb=mxt, IF mx6>18 THEN LET mx 


4840 PRINT OVER uz INK misAT mii,mys"GRA CF GRU";AT mx2,my 
5;"GRA H SHI 8 SHI AT mx2,mybs "GRA 1 GRU";AT my2s 
“BRA C GRU“;AT mx,my3:"GRA SHI 8 SHI 6 "GAT mx, myá 
3"GRA F BRU3AT mx4,m 


























5"GRA SHI 8 GRU"GAT mx, my “ERA E GR 
yr GRA SHI 8 SHI 8 SHI 8 GRU"sAT mx4,myb: "GRA 3 
HI A,my7s B BRU"SAT mx5,my5; "GRA J SHI 8 SH 





Ie GRU";AT mxS,myb; "GRA K GRU"SAT mxb,my; "GRA EG GRU" 
4870 LET s(9)=u 

4880 RETURN 

5000 FOR i=z TO 16 

5010 PRINT OVER us FLASH u; AT i+u,usb$(ZOkitu TO ZONiHEO) 
5020 NEXT i 

5030 PRINT FLASH u; OVER u; AT 20, La HEHHEEHEHHEHHEEE ; AT 
Ze Ls EERE EEA 

5400 DIM s (10) 

5500 FOR i=u TO 40: BEEP RND/10, 1OKRND-5 

5510 IF i#51 THEN GD SUB 8600-1004 

5520 NEXT i 

5530 LET ove4: LET v=4 

&000 FOR i=z TO 16 

&010 PRINT OVER us INK 2; FLASH 24 AT itt, t;b® 50 








zo 








4020 NEXT i 

4030 PRINT FLASH z7 INK OVER 14 AT 20,15" EXT SHL O Hi 
HREHKRRHEREN EXT SHI 5 #"GAT 21,14 "HEXT SHI ORSHENEG AREA 
# EXT SHI 5 # EXT SHI 0! 

6035 PRINT OVER u;AT 20,45"GRG B GRU" 

4040 LET li=li-u 

6050 PRINT OVER zz INK 2;AT 21,3031i 

6060 IF li=z THEN STOP 

5070 DIM s(10) 

&200 GO TO 560 





5.6 Kidnap 
(Copyright Beam Software) 


Het is uw taak om de levende wezens op het planetoïde-oppervlak te beschermen. Hetis 
aan u om de vijandelijke invasie tegen te houden. 

U moet ten koste van alles zien te voorkomen dat de wezens die onder uw hoede staan 
gekidnapt worden door de vijand. Hun overlevingskansen en het voortbestaan van de 
planeet zijn in uw handen. 

De planetoïde onder uw bewaking is niet zo groot. U kunt er gemakkelijk omheen vliegen, 
maar u kunt slechts in één richting reizen. 

De vijandige kidnappers hebben een warmtezoekende raket op u afgevuurd om de aan- 
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dacht af te leiden van hun boze plannen. Lukt het u de raket te ontwijken, de vijand neer te 
schieten en de wezens te beschermen? 


Gebruik van het programma 

U bestuurt het ruimteschip in het midden van het scherm. De krachten waarmee u vooruit 
snelt maken elke zijwaartse beweging onmogelijk. 

U kunt dus alleen maar omhoog (de 'W'-toets) en omlaag (de 'X'-toets). 

U heeft een laserkanon tot uw beschikking (de 'P'-toets) waarmee u de raketten en de 
vijand zelf kunt uitschakelen. Maar de rust is van korte duur, zo gauw u een kidnapper 
neerschiet verschijnt er een nieuwe. 

Uw ruimteschip kan wat beschadigingen verwerken, maar na drie treffers is het niet meer 
operationeel. 


Programma-aanwijzingen 

In BASIC heeft u geen instructies om de bewegingen van het ruimteschip tegen de opper- 
vlakte van de planeet na te bootsen. En zelfs als dergelijke instructies bestonden (bijv. 
SCREENS, die u hier niet kunt gebruiken omdat deze instructie een vrij programmeerbaar 
karakter niet kan uitlezen) dan zouden die nog te traag zijn om het hele scherm te laten 
schuiven. 

Dit probleem kunt u alleen maar met een routine in machinetaal oplossen. In het DATA- 
statement op regel 3000 staat de machinetaal om het scherm in horizontale richting te 
kunnen schuiven (36 bytes lang). 


Deze routine schuift elke kolom op het scherm een plaats door; het karakter op positie 0,1 
komt op 0,0, die op 0,0 gaat naar 0,31 enz. 

Daarna doet deze routine hetzelfde met de kleurattributen zodat alles zijn kleur houdt. 
Deze routine is niet plaatsgebonden. U heeft dus geen kennis van machinetaal nodig om 
hem met behulp van een soortgelijke programmering als regel 140 en 150 overal in het 
geheugen te zetten waar u hem wilt hebben. 

Het kan interessant zijn om deze routine ook in andere programma's te gebruiken. 


De rest van het programma houdt zich voornamelijk bezig met het aanpassen van de 
variabelen die betrekking hebben op de posities van het ruimteschip (sx‚sy), van de aan- 
vallers (ax‚ay) en van de bommen (bx‚by). Door het voortdurend heen en weer geschuif is 
dit een tijdrovende, maar essentiële taak. 

Programma-opbouw 

100-150 zet variabelen en VPK's op 


160-360 teken landschap en plaats mannetjes in toren 


1000-1020 teken schip, aanvaller en bom 
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5000-5360 _hoofdlus: 
test schipbeweging 
zorg dat aanvaller wezen zoekt 
richt bom op schip 
vuur laser af als toets ingedrukt is 
test eventuele botsingen 


7000-7330 kidnaplus 
test overlevenden enz. 


8500-8760 beschadiging schip routine 
inclusief einde programma 


Programma 


10 REM kidnap 
RESTORE 





a“ TO USR "k" 
READ «1 POKE dex 

150 NEXT 1 

140 RESTORE 5000: CLEAR 52500 

150 FOR i=52500 TO 325 READ x: FOKE i,xt NEXT á 
160 BORDER 1: FAPER 12 INK Or CLS 

170 PLOT 0,8 














C7KRND) 
GO SUE B 
DRAW 4,1 
LET 
LET g=ptatt 

TO INT (AXRND) +12 PRINT INK 53 OVER 14;AT Z2Oek 
U: NEXT kr PRINT INK Z3AT 2O-k,ns "GEA B GRU" 
GRA A GRU" 













DRAW 8,0 












p 
GO SUE 8100 
DRAW 11,8-y 
LET sx LET sy=10 
LET ax=INT (ASKRND): LET ays 
LET bx=INT (RNDA1S): LET by’ 





60 TO 5 





LET 
LET 
360 LET 0 

1000 PRINT INK 13AT sx,sys 
1010 PRINT INK 4;AT ax,‚ays' 
1020 PRINT INK 24AT bx,bys 
2000 DATA 1,57,189,187, 146,7 
68, 198: REM vorm wezens 





RA HEGHI GRU" 
KA #DE GRU" 

HJ BRU" 

54, 124, 124,56, 56,56, 104,76, 68, 
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2010 DATA 126,36,60,24,60,102,195, 25E: REM varm platform 
2020 DATA 63,99, 195,193,127,28,7, 5,252, 198, 131,131,254, 56,2 
24,192: REM vorm aliens 

20350 DATA 255,63, 15,7,3,7, 285,0, 192, 240,25 
„3,0,0,31,249, 224, 255, 252, 240,0,0,0, 
rm schip 

2040 DATA 28,28, 244, 199, 227,47, 56, Gé 
3000 DATA 53, 1,64, 17,0, 64,26, 1,31,0, 237, 176, 18,25, 19,62, 88, 
108,52,242,6,22,197,26,1,31,0,237, 176, 18,35, 19, 195, 16,245,2 
OL 
5000 








2,255, 255, 255, 240 
B) 255,0,0: REM va 
















SR 32500 

5010 LET INKEY& 

5020 LET nx=sx+ telg!) (sx 18) — Cx 
5020 IF nx=sx THEN GO TO 5060 
LET v&=SCREENS (nx,‚sy+1): LET WE=SCREENS (nx,sy+2): LE 
S=SCREENS sy+3)t LET véevstwstxb 

HEN GO TO 8500 

(nx,sy+4) ett" THEN GO TO 8500 
PRINT R 14ÂT mxt,my=1s "BRA HEGHI GRU"AT 
SHI & GRA HFGHI EXT SHI O0" 

LET 
LET 





wek tsx 0) 










BOO 
ELO 
Si10 LE send ela) € 
5120 PRINT OVER 13 AT bx‚bys 


s Dy<O THEN LET bysäl 
EN GO TO 5140 
Ib) + (by=syt2) 
GRA HJ GRU";AT nx‚bys"EXT SHI 












2 GRA #J SHI of 








5150 

5140 AND ABS (by=-sy-1)# THEN GO TO 8500 
5200 Pp" THEN &0 TO 5290 

Belo 

5220 OVER 1;8ksy+45, 170-8ksx 

5230 OVER 13 212-84sy,0 

5240 

5250 OVER 13a%syt45, L7O-Eten 

5240 OVER 1; 212-8% 0 











1 TO il: BE 
NEXT ke LE 
"EXT SHI 4 6 


5270 





B ayteyt4 AND ays THEN FOR k 
RINT OVER 1;AT ax,ay-t; "GRA #DE GRU' 
INT CLSXRND LET ay=29: PRINT AT ax,‚ay-lg 
RA #DE EXT SHI 0": LET se=sc+100 

AND byrsyt4 AND by:50 THEN FOR ket TO 5: BEE 
P „1,101 PRINT OVER 13AT bx,‚bys"EXT SHI 2 GRA #J EXT SHI 0 
Uy NEXT ka LET bxet+INT CRNDK14): LET boy Os PRINT AT bx,‚by 
z"EXT SHI 2 GRA #J EXT SHI Ó"t LET sc=sc+20 

IF ayf0 THEN 



































<18) -t 8 THEN GO TO 5250 

5320 LET v | (nxsayt1): LET WEESCREENS (mx,ay+2: IF 
vws hik" THEN GO TO 7000 

5250 LET ny=zay+(ax=18) 











5340 IF nyitay AND SCREENS (nx‚ny+2)s2!#t THEN GO TO 7000 
5350 FRINT OVER 1;AT ax,‚ays 
4 GRA #DE EXT SHI 0" 





ERA #DE GRU";AT nx‚nys"E 









5 
4000 GO TO 
7000 IF ABS (bx-ax)sel AND AES (hyvay)tel THEN FOR 











„5: PRINT OVER I;AT ax,ay;"GRA #DE GRU": NEXT k 
(ISKRND): LET ay=29: PRINT AT ax,ays"EXT SHI 4 
BRA #DE EXT SHI o" 

7010 IF ABS (sx-ax)i=2 AND ABS (by-ay){e=2 THEN GO TO 8500 

7020 PRINT OVER 13AT ax‚ays"GRA #DE GRI"SAT ax-1l,ays"EXT 5 
HI 4 GRA #DE EXT SHI 0" 

7030 LET ax=ax LET ay=ay-i: LET by=by=1 

7040 IF ays0 THEN LET ay=31 

7050 IF bycO THEN LET by=21 

7060 LET v=USR 52500 

7070 PRINT OVER 13AT sx,sy=-i;"BRA HFGHI GRU 
SHI 6 GRA #FGHI EXT SHI 0” 

7080 LET f=0 

7090 FOR x=ax=-3 TO ax+3 

JO9E IF x>20 THEN GO TO 7125 

7100 FOR y=ay+l TO ay+3 

7105 IF yi0 OR ys34 THEN GO TO 7120 

7110 IF ATTR Ot, y)=li THEN PRINT AT #‚ys INK 13"#": LET f= 























"AT sx, sy 














NEXT y 
7125 NEXT x 

7130 IF f=2 THEN GO TO 7200 

7140 PRINT AT ax‚ay+3j INK 1j"#";AT axtt,aytZj "HRG AT axt2 
Ay 

7145 LET aymayti: PRINT OVER 14AT 
Ax ays 5 
7150 LET ezetri: 
7160 GO TO 5000 
7200 PRINT OVER 14AT ax,‚ays' 
HI 4 GRA #DE EXT SHI 0" 

7210 LET ax zr REM LET ayzay=l: IF ayt0 THEN LET ay=ät 





ay-l3 "ERA HDE GRU"GAT 





60 TO 85 








A HDE GRU"sAT 











7220 LET by=by=l: IF by<O THEN LET by 
7250 LET v=USR 22500 

7240 PRINT INK 44AT ax+t,ay: "GRA #A GEU”sAT 

7250 FOR keax-1 TO O STEF —1 

7260 PRINT OVER Is INK 43AT kél,ay;”GRA DE GRU';AT k+2 
"ERA #A GRU";AT k+5, ay; "GRA HB GRU"GAT k,ays 
Kel,ays "GRA #A GRU";AT ke2,ay: "GRA HE GRU" 

7270 HEEP 2, 15-k/2 

7280 NEXT k 

7290 LET e=0: LET heh-lt IF h=û THEN GO TO 65 

7300 PRINT OVER 13AT sx,sy-1; "GRA BFGHI GRU"3AT 
SHI & BRA #FGHI EXT SHI 0" 

7310 PRINT INK 1;AT 1,ays"##"sAT 2,ays sit” 

7520 LET ax=ûr LET ay=ay-l: IF aysò THEN LET ay=31 

7330 GO TO 5000 

8100 FOR iz=0 TO 2ta-2 

8110 LET Iy=INT (36RND) -18 

8120 IF y+1lys0 THEN LET Ly 

8150 IF y+lys22 THEN LET ly= 

814 DRAW 4,1y 

8150 LET y=y+ly 

8160 NEXT i 





says "EES # 
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8170 RETURN 
8500 PRINT INK 5: FLASH 1;AT 21,04 "Schip#beschadigd" 

8510 LET dm=dmti: IF dmiE THEN GO TO 8700 

8520 PRINT AT 21,16: FLASH 14 INK 7; "#ONHERSTELBAAR": FOR 5 
=22944 TO 23104 

8520 IF PEEK s=il THEN BEEP 5,10: FOKE 5,9: FOKE s+32,9 
8540 NEXT s 

8550 FOR kel TO 15 

8560 PRINT OVER 13AT sx,‚sy-lj"# EXT SHI 6 GRA FGHI EXT SHI 
Ot BEEP k/50,12-24ka NEXT k 

B57O PRINT AT 1,C INK 7; "Wezenstniettlangertbescher nd. HHJ 
ethebt#gefaaldtinkjetopdracht." 

8580 PRINT INK 23AT 10,03 "deftscore=t"i sc 

8400 INPUT "Zout jethet#nogteentkeer tu 1 len#proberen?#"; af 
8410 LET a$zabt'#": IF af(ije="j" THEN RUN 100 

8450 STOP 

8700 FOR kei TO 15 

8710 PRINT OVER 14AT sx,‚sy=l;"# EXT SHI 6 GRA FGHI EXT SHI 
BEEP „1,15-2tk: NEXT k 

PRINT INK 13 FLASH OFAT 21, Os "BRORHEBHHRHHARHR 

8750 PRINT OVER 1;AT ax,ay=1; "GRA #DE GRU";AT bx,by-1; "GRA 
#J GRU" 

8740 LET ax=INT (1SXRND): LE 
8750 LET bx=INT CIHSXRND): LET by: 
ZO 

8760 GO TO 1000 




















THEN GO TO 8 





5.7 Snelwegkikker 
(Copyright Beam Software) 


U bent een arme kleine kikker die wanhopig probeert de snelweg over te steken op weg 
naar huis. Op de snelweg moet u vrachtwagens, motorfietsen en auto's zien te ontwijken, 
maar het ergste zijn de politiewagens die met hoge snelheid elk moment voorbij kunnen 
komen. Om de kikker te besturen gebruikt u de volgende toetsen: 


’Q' naar boven 
'A' naar beneden 
'O' naar links 

'P’ naar rechts 


U krijgt punten als u naar boven en naar beneden gaat, dus als u een hoge score wilt 
hebben dan kunt u de snelweg net zo vaak oversteken als u wilt. Als een kikker boven in 
het scherm aankomt dan is hij thuis, en dan probeert u het weer met de volgende kikker. 


Hoe het programma werkt 

Dit programma maakt uitgebreid gebruik van de vrij programmeerbare karakterset van de 
SPECTRUM. Als u daar te weinig vanaf weet dan zou u hoofdstuk 14 van de gebruiksaan- 
wijzing kunnen lezen. Dit programma gebruikt 58 programmeerbare karakters, hoewel er 
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maar 21 mogelijk zijn. Om het de computer mogelijk te maken zoveel karakters te gebrui- 
ken moet het VPK-gebied heen en weer geschoven worden over de twee of meer karak- 
tersets. 

Hiervoor moet u eerst ruimte maken voor het aantal karakters dat u nodig heeft. Bij een 
16K-machine met 21 vrij programmeerbare karakters bevindt het VPK-gebied zich op ge- 
heugenadres 32600 tot 32767. Dit zijn 168 bytes, of wel 8 bytes per karakter. Daar u 58 
karakters nodig heeft voor uw spelletje moet u 464 bytes vrijmaken voor het VPK-gebied. 
Dit komt overeen met adres 32304 tot 32767, de eerste opdracht in uw programma wordt 
dus: 


CLEAR 32303 
N.B. alle gedefinieerde variabelen uit LET en DIM-opdrachten gaan verloren na een 
CLEAR. 


In dit programma heeft u drie grafische karaktersets: 

De eerste twee bevatten elk 21 karakters, de derde slechts 16. Om nu een set te kunnen 
gebruiken moet u de systeem variabele VPK (adres 23675 en 23676) naar het juiste ge- 
bied laten wijzen: 


32600 de eerste set (normale set) 

32432 de tweede set (32600 - 168) 

32304 de derde set (32432 - 128) 

N.B. de derde set loopt gedeeltelijk over in de tweede omdat hij maar 16 karakters 
lang is. 


Het kost wat rekenwerk om de juiste waarde in VPK te krijgen. De berekening gaat als 
volgt: 


POKE 23675, 'waarde'’- 256 * INT (waarde’/256) 
POKE 23676, INT ('waarde’/256) 
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N.B. U hoeft deze berekening niet in het programma op te nemen omdat u de juiste 
waarden gemakkelijk met de hand uit kunt rekenen en ze verder gebruiken. 


Bijv. Startadres POKE 23675 POKE 23676 


32600 88 127 
32432 176 126 
32304 48 126 


De waarden voor de programmeerbare karakters moet u op de een of andere manier in de 
computer voeren en dat zijn er dan 464 voor de 58 karakters. Als u deze in DAT A-state- 
ments zou zetten dan zou dat zoveel ruimte in beslag nemen dat er te weinig overblijft voor 
de rest van het programma. Het zou trouwens onzinnig zijn om ze elke keer als het pro- 
gramma ingeladen wordt in te moeten voeren. Om dit probleem op te lossen is het pro- 
gramma in twee gedeelten gesplitst. Het eerste gedeelte zet de programmeerbare karak- 
ters op en als dit in orde is worden ze als een blok bytes op de cassette gezet. Voordat u 
het eigenlijke programma gebruikt, wordt dit blok van de cassette gehaald en kan het spel- 
letje gespeeld worden 


N.B: U hoeft het blok alleen maar de eerste keer dat u het programma gebruikt van 
de cassette te halen. Daarna blijven ze opgeslagen in de computer totdat de stroom 
wordt afgezet of er andere informatie overheen geschreven wordt. 


Het programmeren van de ’snelwegkikker’grafische karakters 

Het volgende programma zet de grafische karakters op. Het is belangrijk dat de DATA- 
statements zorgvuldig ingetikt worden omdat eventuele fouten later moeilijk terug te vin- 
den zijn. Als het programma klaar is dan staan alle data in het VPK-gebied en verschijnen 
alle gebruikte vormen op het scherm. 

Op het scherm moet het volgende te zien zijn: 


Bovenaan vier identieke groene kikkers die verschillende kanten op wijzen (omhoog, naar 
rechts, omlaag en naar links) 

Daaronder moet staan: 

Een witte motorfiets, een rode auto en een vrachtwagen die allen naar links wijzen. 
Daaronder een witte motorfiets, een gele auto en een vrachtwagen die naar rechis wijzen. 


Als alles in orde is kunt u de karakterset op cassette zetten met de instructie: 


SAVE 'snelweg-VPK' CODE 32304,464 
(U kunt hiervoor elke willekeurige naam gebruiken) 


Vergeet niet ook het programma op cassette te zetten voor het geval dat u dat nog een 


keer nodig heeft. 


Het hoofdprogramma 'snelwegkikker’ 
Het hoofdprogramma is behoorlijk lang, dus is het aan te raden dit in gedeeltes in te tikken 
en de tekst nauwkeurig te controleren. 
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Vooral de gedeelten van het programma waarin het scherm opgezet wordt bevatten veel 
grafische karakters en kleurcontrole-codes die er heel anders uitzien als het programma 
een keer ‘gelopen’ heeft (de grafische A bijvoorbeeld is geen 'A' meer als de karakterset 
ingeladen is). Het is dan bijna onmogelijk geworden om eventuele fouten nog terug te 
vinden. 

Als het programma gestart wordt zal het eerst wachten op het inladen van de karakterset. 
U moet dan de cassette afdraaien met de ‘snelwegVPK'-bytes die u al had opgenomen. 
Als die bytes er al inzitten en u wilt het programma opstarten dan moet u de instructie RUN 
26 gebruiken. 


Beschrijving van het programma 
Regel Beschrijving 


20-25 zet RAMTOP om ruimte te maken voor de grafische karakters en laad 
ze dan van cassette 


26-75 initialiseer alle gebruikte variabelen, zet de schermkleur op, de posities 
van de auto's, vrachtwagens en motoren en de variabelen die gebruikt 
worden om de VPK-karaktersets te kunnen wisselen. (Als de karakterset al 
aanwezig is, moet het programma hier worden opgestart.) 

80 - 100 teken de snelweg 

105 teken de kikkers links op het scherm 

106 zet SCORE en HOOGSTE SCORE op het scherm 

110 - 150 beslis of er een politiewagen over het scherm moet racen. Als dit het 
geval is dan moet de richting worden bepaald en de wagen op het scherm 
worden gezet. 

500 - 530 controleer of een kikker aangereden is. Zo ja, ga naar regel 4000. 

600 - 700 als de speler een zet mag doen (dit is een op de twee keer in de 
hoofdlus) dan wordt het toetsenbord afgetast om te kijken of er een zet 
gedaan wordt. Zo ja, dan wordt de positie van de kikker veranderd, zo no- 
dig wordt de richting gewijzigd en de score verhoogd als er omhoog of om- 
laag bewogen is. De oude kikker wordt uitgeveegd en de nieuwe getekend. 

750 laat alle motorfietsen bewegen en teken ze. 


800 - 820 laat een op de twee keer alle auto's bewegen en teken ze. 


900 - 950 laat één op de vier keer alle vrachtwagens bewegen en teken ze. 
Spring terug naar regel 106. 
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990 - 999 


1000 - 1070 


1080 - 1117 


2000 - 2001 


2010 - 2012 


2100 - 2112 


2200 - 2201 


2210 - 2212 


4000 - 4010 


4020 - 4070 


verwijder een kikker van het scherm. 
De positie van de kikker wordt gecontroleerd om te bekijken of snel- 
weg overgetekend moet worden waar de kikker zich bevond. 


bestaat uit 4 subroutines om de kikkers in 4 richtingen te kunnen teke- 
nen. 


6 subroutines om de auto's, motorfietsen en vrachtwagens te tekenen. 
tekent alle auto’s op het scherm. 


houd de posities van de auto's bij (bij auto's die naar rechts bewegen 
wordt de positie met 1 vermeerderd, naar links met 1 verminderd). 


teken alle motorfietsen en houd de posities bij. 

teken alle vrachtwagens. 

houd de positie van alle vrachtwagens bij. 

meldt de speler dat er een kikker aangereden is verminder het aantal 
resterende kikkers met 1. Als er nog kikkers over zijn dan springt het pro- 


gramma terug om met de volgende kikker te beginnen. 


zet een ‘game over-boodschap op het scherm, pas de HOOGSTE 
SCORE aan indien nodig en vraag de speler of hij nog een keer wil spelen. 


KHW £ 
& DN an | 
EN en Bs 


Score @ HOOGSTE SCORE 0 
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5000 - 5020 als een kikker de thuisbasis haalt springt het programma hier naar toe. 
Het aantal resterende kikkers wordt met 1 verminderd en als er nog kikkers 
over zijn dan wordt het spel vervolgd, anders gaat het programma naar 
regel 4020. 


Programma 


10 REM snelwegUDG 
zo CLEAR 52505 
25 LET » 








40 in 
50 BORDER Or FAPER Ôz CLS 


NEXT i 


60 POKE 23675, 48: 
70 PRINT AT 6,9: 
71 PRINT AT 1,9; 
80 POKE 23675, 176 

81 PRINT « RINT z PRINT "HBEERHEREER BIEREN BHA AHNH EXT SH 
5 GRA DDDDC EXT SHI 0” 


E2 PRINT "## EXT SMI 7 GRA RS EXT 
HR GRA NO EXT SHI 0 Ht8HiAtHt EXT SHI 
SHI 8 SHI 8 SHI 8 SHI 8 E EXT Srl ot 

BE PRINT "## EXT SHI 7 GRA TU EXT SHI O ####HtR EXT SHI 2 
GRA ABFO EXT SHI O H8#H### EXT SHI 5 GRO MK EXT SHI 5 GRA 
JGEHF EXT SHI 0 

90 POKE 25675,88: POKE 23676, 127 
9 PRINT 1 PRINT 1 PRINT “HEHEH EXT SHI 
BRA CDDDD EXT SHI 0” 
92 PRINT "## EXT SHI 7 GRA RS 
GRA NO EXT SHI O HH#HEEHHH EXT SHI 5 GRA F SHI 8 SHI 8 SHI 
8 SHI 8 EXT SHI 5 GRA JK EXT SUI or 
95 PRINT '#t EXT SHI 7 GRA TU EXT SHI O HH#RAH EXT SHI 6 
GRA POAB EXT SHI O ##t448# EXT SHI 5 GRA EGHHI EXT SHI 5 6 
RA LM EXT SHI 0 
100 PRINT INK 73AT 15,0; "Karakterstzi jn#gepragrammeerdtitt 
Laad#nuthet#programmat” snelweg” " 
STOP 

9000 DATA z,1,35,37, 111,79, 225, x 
GOOL DATA z,128, 196, 164, 246, 242, 251, x 
BOOZ DATA 111,15,31,159,220, 216, 120, 48 
J0Ö5 DATA 246, 240, 248, 249,59,27, z 
9004 DATA 56, 113, 195, 252, 127,31, 31 
9005 DATA 192,240, 156, 192, 240, 248, 244, 254 
VOOG DATA 31,31,31,127,252, 195, 11 
9007 DATA 254, 244, 248, 240, 192, 156, 240, 192 
9008 DATA 48, 120, 216, 220,159,E1, 15, 111 
9009 DATA 12,30,27,59, 249, 248, 240, 246 
OLO DATA x,225,79, 111,57, 35, 142 
9011 DATA x,251, 242, 246, 164, 196, 128,2 
GOL2 DATA 5,15,57,3, 15, 31,47, 127 
9015 DATA 28,142, 131,63, 254, 248, 240, 240 
9014 DATA 127,47,31,15,5,57,15,2 
9015 DATA 240,240,248,254,65, 151, 142,2 


POKE 25676, 126 
EXT SHI 4 GRA AESKEFHBIJKKMN EXT SHI 0" 
EXT SHI 4 GRA CD##CHERELHHOP EXT SHI 0” 














T SHI O HiHHHHH EXT SHI 2 
5 GRA LI EXT SHI 5 GRA 
































XT SHI O HitHHRH EXT SHI 4 
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“014 DATA 
9017 DATA 
GO18 DATA 
P019 DATA 
G020 DATA 
9021 DATA 
VO2R DATA “ons nnas 
9025 DATA 
024 DATA 
5 DATA 
DATA 
DATA 
DATA 


47, 240, 96 
54, 254 






ik, 254, 254 
122, 48 


Rea 





B, Sia! ole, 

RAN 

1,31,62,61,59,5, 1 

DATA 12402463, 97, 19% 

DATA „EZ, 2, 128, 192 

DATA 12B,x,x, Nen, 28, a, 

DATA 240,254,x,159,111,246, 240,96 

DATA 1,3, 1,2,5,4, 14,31 

DATA 128,192,192,224,224, 112, 119, 255 

DATA 31,65, 115,81, 169, 112, 112,32 

DATA 254,252, 252, 254, 213, 206, 14,4 

DATA 224,x,x,249, 246, 239, 15,6 

DATA zoz, 1520209) 240,00, dre 

9059 DATA Eer leG127, 127 

3040 DATA 

9041 DATA 

9042 DATA 

9045 DATA 

9044 DATA » 

9045 DATA 

9046 DATA & 

9047 DATA z 

#048 DATA 3 
2 


184,216, 192, 128 














ESE Eager 

„127,127,32,76,94, 94,12 

„127, 127, 127,127,127, 127, 127 

TX, 2396, 240, 240,96 

SNr ZeZalsg 

rts, T6, 240, 240, 26 

4,64) 95,95, 127,65, 63,51 

z224, 144, 156, 136, 248, 248 
„127,254, 29,27, 5,1 

B, zie, 248, 124, 188, 220, 192, 128 

SETERS: 

HEESEN ESE, 134,1 


1246, dad, von 











Ber 


2049 DATA 
Po50 DATA 
2051 DATA 
Pon DATA 
9055 DATA 
9054 DATA 
9055 DATA 12, 192 
9056 DATA 127,85 6: 
9057 DATA 248,25 2,206, 128, 149, La, 14,4 




















Programma 


10 REM snelweg 











20 z RANDOMIZE 
25 "CODE 
26 


KINT RNDKIS: LET m2=2XINT KNDK1S 
NT RND%5 LET t2=INT RNDK30 

2KINT RAD BPKINT RNDK5O 
ET @ 









=ó 
LET ta=d: LET m 
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40 BORDER 0: PAPER O: INK 7: CLS 

45 LET fed: LET fc=5 

50 LET ul=23675: LET uh=23676 

55 LET sc=0 

40 11=08: LET 122476: LET 15-48 

70 LET hi=127: LET h2=126 

75 LET 110=8: LET lit=9 LET 11 
As LET 122=12 

80 PLOT 0,38: DRAW 255,0: DRAW 0,1: DRAW -255,0 

90 PLOT 6,128: DRAW 255,0: DRAW 0,1: DRAW -255,0 

100 FOR x=2 TO 256 STEF B: PLOT x,85: DRAW 4,0: DRAW O,1: 
DRAW —4,Ot NEXT x 

105 LET pa=20: LET py=20t FOR x=0 TO (fc-1)X5 STEP 3: LET 
px=x: GO SUB 1020: NEXT x 

10& PRINT AT 0,04" EXT SHI & Score#EXT GHI 7"sscjAT 0,9:"E 
XT SHI & HOOGSTERSCORER EXT SHI 7";hi; "EXT SHI O0" 

110 IF RND£.9 THEN GO TO 300 

115 IF RND>.5 THEN GO TO 150 

120 LET c=5: FOR j=1 TO &: BEEP „2,10: BEEP .2,20: NEXT j: 
FOR x=-4 TO 30 STEP 2: GO SUB 1080: NEXT x 

130 60 TO 500 

150 LET c=5: FOR jet TO 6: BEEP „2,20: BEEP „2,10: NEXT jr: 
FOR x=30 TO -4 STEP -2: GU SIE 1140: NEXT x 

500 IF pyr1S OR (py{iZ2 AND py*9) OR pyié THEN GO TO 600 
510 LET i=22528+py 
520 IF PEEK ié>4 OR PEEK (i+1)2:4 THEN GO TD 4000 

530 IF PEEK (i+32)4>4 OR PEEK (i+33)254 THEN GO TO 4000 
600 IF pz THEN LET pz=pz-1: GO TO 70 














LET 120-145: LET 121=t 






































610 LET pz 1 LET z&=INKEYS: IF zb="" THEN 60 TO 700 
&15 GO SUB 990 
620 yr(zserg") (zb) 





430 pet asep) (zen) 
640 "THEN LET paz 
&41 THEN LET pa=20 
642 THEN LET pa=40 
443 THEN LET pa=60 


&50 THEN 60 SUB 5000 
GAO LET scesctijk(zfe"q" OR z 
700 GO SUB 1060+pa 

730 GQ SUB 2100 

B00 IF mz THEN LET ma=mz-1 
810 GO SUB 2000 

820 IF NOT ma THEN LET mz 
S00 IF tz THEN LET tz 
SUE 2200 

NOT tz THEN GO SUB 2210: LET 
) TO 106 

590 PRINT AT py, px: 








50 SUB 2010 








VEH GAT pytl, pare 








991 y=l0 OR py=ll THEN PLOT pxkB+2,8Z: DRAW 4,0: DRAW 
Os ds DRAW -4,01 FLOT pxk+10,8 DRAW 4,03 DRAW O, 12 DRAW 
=4,0: RETURN 


995 IF py=17 OR py=16 THEN FLOT pxx8,28: GO TO 998 
996 IF pyir5 OND pyi>4 THEN RETURN 

997 PLOT px+8, 128 

998 DRAW 16,0: DRAW @,1: DRAW —16,0 





999 RETURN 

1000 POKE ul,13: POKE uh‚h2 

1010 PRINT INK #3AT py‚pxs”"ERA AB GRU";AT py+l‚px;"GRA CD 
GRU": RETURN 

1020 POKE ul,13: POKE uh‚h2 

1030 PRINT INK f4AT py‚pxz"GRA EF ORU';AT pyt1,px; "GRA GH 
BRU": RETURN 

1040 FOKE ul,‚l3: POKE uh‚h2 

1050 PRINT INK f4AT py‚px:"BRA IJ GRU";AT py+t1,px; “BRA KL 
BR": RETURN 

1060 POKE ul,‚l3: POKE uh‚h2 

1070 PRINT INK #4AT py‚px; "GRA MN GRU":AT py+i,px; "BRA UP 

















BRU RETURN 
1080 POKE ul,‚li: FOKE uh‚bi 


1085 IF x<0 THEN PRINT AT 110,0; INK c:"## BRA NO GRU ##"C 
lx TO )3AT 111,0;"GRA POPDAR GRU" (1=x TO >: RETURN 

1090 IF x>26 THEN PRINT AT 110,x;"EXT SHI 0 B#"; INK c; "ER 
A NO GRU"( TO 30- EXT SHI 0 ##*s INK c; "ERA FO 
BRU" { TO 30-x): RETURN 

1095 PRINT AT 110,x3"EXT SHI O #&#”s INK ci 
T 11l,xs"EXT SHI U #8" INK c; "GRA POAB GRU 
1100 POKE uL‚li: POKE uh ‚hi 

1104 IF 0 AND x525 THEN PRINT AT 112,x;"EXT SHI O # EXT 
SHI 5 GEA CDODD GRU";AT 110,x;"EXT SHI O # EXT SHI 5 GRA F 
SHI 8 SHI B SHI 8 SHI 8 EXT SHI 3 GRA JK GRU"SAT 111,x3"EX 

IT SHI O0 # EXT SHI 5 GRA EGHHI EXT SHI 2 GRA LM GRU”: RETURN 















NO GRU HR"; A 
RETURN 











1108 IF x{-5 THEN PRINT "EXT SHL 5"3AT 110,64" BRA JK GRU”C 
=S=x TO )4AT 111,05"BRA LM GRU"( TO ): RETURN 
LIi2 IF x£G THEN PRINT AT 112,0;"EXT SHI 5"4"GRA CDDDD GRU 
“tek TO )3AT 110,05" GRA F SHI B SHI 8 SHI 8 SHI 8 BRU" (-x 
TO )4;"“EXT SHI 5 G : GRU";AT 111,0;"EXT SHI 
BRU" C-x TO Jar SHI & GRA LM RE RETURN 
11E IF PRINT AT 112,x Zan U # EXT SHI S ER 
A EDDDD GRU"S$AT 110,x I SHI 3 
HI @ SHI & SHI 8 EXT SHI 5 GRA J tu“ AT 
EXT SHI 5 GRA EGHHI EXT SHI 5 GRA L GRU" 
1117 PRINT AT 112,x;"EXT SHI G # EXT SHI CDDDD BRU" 
CTO Fix); AT SHI o # EXT SHI 5 F SHI 8 SH 
8 SHI 8 SHI 8 EL) KAT Ilt,xg "EXT SHI O # EXT SH 
9 R Six): RETURN Je 
uh hi 
MARS IF xc0 THEN PRINT AT 110,0; INK 7;"GRA RS GRU"sAT 111 
„05 INK “GRA TU GRU": RETURN 
11 Ir 8 THEN PRINT AT 110,x3 "EXT 
EXT SHI O #3”: RETURN 
1155 PRINT AT 110,xz"EXT SHIT O Hit EXT SHI 7 GRA RS 
O"ZAT Ili,xs"EXT SHI O H# EXT SHI 7 GRA TU EXT SHI 
RN 
1140 POKE ul,12: POKE uh‚h2 
1148 1F xr26 THEN PRINT AT 120,xs INK c4"## GRA NO GRĲ"( T 
KI3AT 121,xs ENK cj"GRA ABPG GRU"( TO 32 RE 
5 IF #20 THEN PRINT AT 120,03 INK cj'it GRA ‘No EXT SHI 
HRS (x TO OAT 124,0; INK es"RA HPQ EXT SHI O Hit” 
RETURN 






































































SHI O0 AH"GAT LLL, 
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1158 PRINT AT 12üsxs INK c 
xj INK es”“BRA ABPO 
1160 POKE ul,12: POKE uh‚h2 

11635 IF x AND E25 THEN PRINT AT 1Z22,x3"EXT SHI 0 HH EX 
T SHI 5 GRA DDDDC EXT SHI O #"4;AT 120, BRE LIEX 
T SHI S GRA SHI B SHI 8 SHI G SHI B E EXT SHI O #";AT 121, 
"EXT SHI 5 GRA MK EXT SHI 5 GRA JGGHF EXT BHI O #1 RETUR 
N 

1165 IF xeel THEN PRINT AT Oz "EXT SHI O # EXT & 
A DDDDC EXT SHI 0 #";AT 120,0;"EXT SHI 2 GRA 1 EXT SHI 
A SHI 8 SHI # SHI & SHI 8 E EXT SHI O 
5 GRA Kk EXT SHI S BRA JGGHF EXT SHI O #”: 
1170 IF xé=l THEN PRINT AT 122,03"EXT SHI 5";"# GRA DDDDG 
EXT SHI O #"(-x TO )3AT 120,0; "EXT SHI 
B SHI 8 SHI A E EXT SHI O #"(-x TA dz AT 1 
# GRA JGGHF EXT O BC TO): RETURN 
de KF THE PRINT AT 120,x3 "EXT 
TO 32-4)3AT 121,xs "BRA MK GRI" ( TO 32 RETURN 

1175 PRINT AT L2Z es "EXT SHI O Ht EXT SHI 5"'z"GRA DDDDG GRI 
ut TO 3O-R)GAT 120,x5 XT SHI 5 GRA LI EXT SHI 5'";s"GRA SHI 

8 SHI 8 SHI 8 SHI 8 E GRU'( TO Zx sXj"EXT SHI 5 GR 
A MK EXT SHI 5"s"GRA JGGHF GRU"( TO RETURN 

1180 POKE ul,‚l POKE uh‚h@ 

IF 229 THEN PRINT AT 120,x4 
BRA TU GRU": RETURN 

IF x£0 THEN PRINT AT 12C 
TO )3AT 121,03 INK 7;"BR 


"HH GRA NO 
XT SHI O Hs RETURN 





SHI O H#";AT 121, 






















































B Spr 








LI GRI 





4 





























1195 PRINT AT 120,x;"EXT SHI 7 GRA RS EXT SHI O ##";AT 
x4"EXT BHI 7 GRA TU EXT SHI 0 ##": RETURN 

2000 LET c=ce: LET i: GD SUB 1080 

2001 LET r 80 TO 1140 

2010 LET e THEN LET cl=-4 

211 LET £ THEN 20 

2012 RETURN 

2100 LET « 
ZAO1 LET m 
2110 LET 
2iti LET m 
2112 RETURN 

2200 LET «etis BO SUB 1100 
2201 LET xet2r GO TO 1160 
2210 LET ti=ti+ 
2211 LET t2=t2- 
2212 RETURN 

4000 LET f=2: FOR i=50 TO 1 STEF -5: GO SUE 990: GO SUE 100 
O+pa: BEEP .O2,{: NEXT í 

4008 GO SUB #90: LET f=4 

4010 LET fe=feel: IF fcí#0 THEN GD TO 105 

4020 PRINT AT 1,10; "Game#over” 

4030 IF schi THEN LET h PRINT AT 2,33 "Maart jettscc 
ietdetni euwe HitIAEHDOGSTERSCORE" 

4040 PRINT AT 4,6; "Toets® j' #voorfnieuntspel” 

4050 IF INKEY® 60 TO 
4060 IF INKEY$="j" THEN GO TO 2 




























60 SUE 1120 
2: IF mi=32 THEN 
GO SUB 1180 
IF m2z=-4 THEN 








THEN 
THEN 





ir % 
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4070 
5000 








TO 50 STEF 5: GO SUR 990: GO SUE 1000+pa: BE 





SUB #90 


IF fcé20 THEN GO TO 1 





5020 GO TO 4020 
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6. Hulpprogramma's 


6.1 Vrij programmeerbare karakters 
(Copyright Beam Software) 


Beschrijving 

Dit programma is leuk om mee te spelen. U krijgt de vrij programmeerbare karakters sterk 
vergroot op het scherm te zien. Maar het programma is ook een absolute ‘must’ voor pro- 
grammeurs die de grafische karakters om willen zetten in High resolution-karakters voor 
eigen gebruik, bijvoorbeeld voor spelletjes. Een zeer krachtige ‘editor’ is ingebouwd met 
de volgende mogelijkheden: 


ontwerpen van karakters wordt visueel ondersteund 
karakters kunnen onmiddellijk worden leeggemaakt 
karakters kunnen onmiddellijk worden gevuld 
vergrote weergave van karakters op scherm 
karakters kunnen worden gespiegeld 

cursor loopt in vier richtingen door 

optie om 1, 2 of 4 karakters tegelijk te programmeren 
gemakkelijk te identificeren kleuren 

elk moment ophouden zonder veranderingen 


En dan wordt nog de inhoud van de geheugenadressen van deze karakters automatisch 
aangepast na het gebruik van de ‘editor’ en alle gegevens die op deze karakters van toe- 
passing zijn worden op het scherm gezet met de mogelijkheid om ze naar de printer te 
sturen. 

U zult verrast zijn hoe handig dit programma kan zijn. Terwijl het programma zijn werk doet 
wordt u voortdurend op de hoogte gehouden van waar hij mee bezig is. 


Gebruik van het 'editor'-programma: 


cursor-besturing 

naar links 

omlaag 

omhoog 

naar rechts 

punt onder cursor vullen 
punt onder cursor leegmaken 


oasa 


routine-besturing 

b alle punten leegmaken 

f__alle punten vullen 

m __de karakterblokken intern spiegelen 

s sla de aangepaste blokken op in geheugen 

E Einde veranderingen; verlaat ‘editor’ zonder blokken te veranderen (N.B. shift 
el) 
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Programma-opbouw 

Het programma gebruikt een array om de geheugenbytes na te bootsen die een karakter- 
blok definiëren. Op een 48K-Spectrum begint het karakterblok van het eerste vrij pro- 
grammeerbare karakter op adres 65368, op een 16K-Spectrum is dit adres 32600. Daar- 
na volgen 8 bytes die de vorm van het karakter definiëren. 


De opbouw van het programma is als volgt: 


Invoer 
definieer schermvariabelen 
invoer begin karakterblok 
invoer aantal te programmeren karakters (1, 2 of 4) 
definieer dimensie van de volgende arrays: simulatie, geheugenadres-wijzer, spiegel 


Hoofdlus 
initialiseer simulatie, geheugenadres-wijzer array 
schrijf geheugenbytes in simulatie-array 
zet vergrote en normale vorm karakters op scherm 
voer 'Editor'-routine uit 
tot 's’-sla op of 'E'-einde 
zet printeroptie op scherm 
als andere karakters veranderd moeten worden, ga dan naar Invoer 


Editor-routine 
bepaal afmetingen vergroot blok 
E1: flitscursor 
accepteer invoer besturingstoetsen 
flitscursor uit 
als Invoer besturingstoets is: 


'5' of '8' bereken nieuwe cursorpositie 


ga naar El: 

‘0 zet huidig simulatie-array-element op O, pas scherm aan 
ga naar E1: 

nj zet huidig simulatie-array-element op 1, pas scherm aan 
ga naar E1: 


f of 'b' als 'f' zet hele simulatie-array op 1, 
als 'b' zet hele simulatie-array op O, 
zet karakterblok opnieuw op scherm 
ga naar E1: 

's zet printeroptie op scherm 
als ja dan sla simulatie-array op in 
geheugen 
als nee ga dan naar El: 

m’ spiegel simulatie-array-regel 
ga naar E1: 

JE return 
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Opmerkingen 

Het aan-en uitknipperen van de cursor wordt bereikt door de attributen van de karakterpo- 
sitie in de ‘display file’ (het geheugengebied van het scherm) te veranderen. Het geheu- 
genadres van de attributen van het karakter links boven in het scherm is 22528. Als u nu 
een karakter op regel x, kolom y wilt laten knipperen, dan bereikt u dat door: 

3040 LET a = 22528 + 32*x + y: POKE a, PEEK a + 128 

Op dezelfde wijze kunt u het knipperen laten stoppen door: 

3060 POKE a, PEEK a - 128 


Om met een COPY-opdracht het scherm op de printer te kunnen zetten krijgt een lege 
punt op het scherm de attributen PAPER yellaw, INK BLACK, en een gevulde punt PA- 
PER white, INK BLUE. 


Om het karakter vergroot op het scherm te krijgen gebruikt u een PRINT-opdracht, voor 
een afdruk op normale grootte een PLOT-opdracht. 


Om het juiste vrij programmeerbare karakter aan te kunnen roepen vertaalt u een INPUT 
van kleine letter naar een hoofdletter door: 
8060 LET K$ = CHR$ (CODE KS - 32) 
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Er wordt ook een controle uitgevoerd op de INPUT van een letter om te kijken of die soms 
buiten het bereik van de vrij programmeerbare karakter-set ligt: 

8070 … OR (CODE K$ + ne + 79 -1) > 164 

m.a.w. de ASCII-code van de eerste hoofdletter + het aantal te programmeren karakters 
+ 79 -1 mag niet groter zijn dan 164; de code van het laatste vrij programmeerbare karak- 
ter. 


Om het beginadres te vinden van de 8 geheugenbytes die een bepaald vrij programmeer- 
baar karakter definiëren gebruiken we: 8150 LET S(l + 1) = USR CHR$ (CODE K$ + I) 


De logica achter het intern spiegelen van een array berust op het opdelen van de array in 
twee arrays waama de elementen van buiten naar binnen toe worden verwisseld. Een 
reeks van 8 elementen zal dus in twee helften van ieder 4 elementen worden verdeeld. 
Het eerste element van de eerste helft zal daarna omgeruild worden met het laatste ele- 
ment van de tweede helft. Daarna wordt het tweede element geruild met het één na laat- 
ste. Dit gaat door totdat het laatste element van de eerste helft is verwisseld met het eerste 
element van de tweede helft. Deze routine staat in regel 3330 to 3400. 


Programma 


100 REM 

110 REM vrij programmeerbare karakters 

115 REM 

120 60 TO 8000 

1000 REM teken karakterset 

1010 REM Input r‚csstart coordinaten 

1020 PRINT AT 8, 115"t#": PRINT AT 9,11;"##": FOR Hel TO nc 
1030 LET hr=8k{(H=3 OR H=4): LET he=Bk(H=2 OR Hed) 
1040 FOR I=i TO 8 

1050 FOR J=i TO 8 

1040 PRINT AT (Lerthr), (Jtethe)s 

1070 IF Bülthr,Jthe)=0 THEN PRINT PAPER 6: INK 
TO 1090 

0 PRINT PAPER 7: INK 
=hr 

1090 NEXT J 

NEXT 

NEXT H 

LET Lé& 
RETURN 

REM 

REM karakter in array 

REM Input K&,Output B(I,J) 

REM 

0 FOR Hei TO nc 

LET h Hei): LET he=@kCH=2 Oft Hed) 
2060 FOR l=l TO 8 

2070 LET mePEEK (s(H) +11) 

2080 FOR J=8 TO 1 STEP —1 

2090 LET BCI+hr,J+hej=m-2XINT (m/2) 

2100 LET meINT (m/2 








8 GI 









Wi kihaididahkshdodndikidikiki kik sd ibid iadsdedikaks hakikidian 
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2110 NEXT J 
2120 NEXT 1 

2150 NEXT H 

2140 RETURN 

2000 REM Edit KARAKTER, x=regel , y=kolom 

3010 REM Input B(I,J) 

2020 LET her=8kimar2)s LET he=8X (re 

050 LET *l: LET y=ctl 

SO40 LET a=22528tEAkxtyt FOEE a, PEER at128: PAUSE 200 

3050 IF INKEYS: THEN 60 TO 50 

5060 LET M$=INKEYS: POKE a,PEEF a-128: REM unflash oude pos 
itie 

3070 IF MEL"S" OR MEA"B" THEN GO TO 2450 

5080 LET y=yt(Mb="B" AND (x4nBthr OR yi s82tha))- (M$="5" AND 
Sh OR yebet1)) 

5090 LET xext M$" 6") — (M$ 
2100 IF xe8the THEN LET 
E110 IF xe1 THEN LET x=Bthe 

IE y>22thc THEN LET 

13 IF y415 THEN LET y=22thet 
40 GO TO 2040 

d IF M&S 2"O! AND MESA" 1" THEN GO TO 2190 

5160 FRINT AT x, 

70 IF BO-r,y 

PAPER 63 INK 





OR ne=4) 































je PRI 
60 TO 


10" THEN LET Boor, y=) 
OVER 14B7+yec, LR: 











Os 


FRI 
B 


J AND Mez! 1 THEN LET BG, yere) 
RA SHI B GRU": PLOT E7tyec, 112 





TO z040 
5190 IE MSS 
a To 3240 
5200 LET b=(M&="£" OR M$="F") 
210 GO SUB 4000: REM init ARRAY 





f! AND M&S AYE" AND M$ b" AND M$S="E" THEN G 





3220 GO SUB 1000: REM teken KAR 

5250 GO TO 3030: REM nieuw begin 

3240 IF M&SH'E" THEN GO TO 5260 

5250 PRINT AT 19,05 INK 25 "DIT#KARAETERHELIJFTHONVERANDERD ! 
RETURN 
3260 IF M$» 
4 

270 FRINT AT 18,04 "Dit#opslaan?i( jHofdn) #'; 

E280 LET e$=INKEYS: IF ebr" j" AND e$t"n” THEN GO TO 5280 












5" AND M$<>"5" THEN GO TO 5520: REM edit inke 





5290 PRINT INK Zjef: PAUSE 50 

3300 IF e&="'j"“ THEN GO SUB 5000: RETURN 

EEIO FOR Met TO E23 PRINT AT 17+M, Os PRINT "BHERBHERREEERIE 
BAER HAAEERBHNKR Gn NEXT Me GO TO 5 
3520 IF M&S2!m" AND MESH!M" THEN GO TO 2040 

2230 PRINT AT 0,255 FLASH 15 INVER dj TMK Ss "BPIEGEL": LE 
T fe=INT (be/24,5) 

FOR Ief TO br 

FOR Jet TO fe 

LET M=B{l,J) 

LET BCI, DEE, bed) 

LET B(Il,be-Jtije=M 




















4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
5000 
So10 
5020 
3050 
zO40 
SO 
5040 
5070 
5080 
5090 
5100 
St10 
S120 
5130 
5140 
6000 
&L0 
oz 
650 
440 
6050 
4 
460 
6070 
&OB0 
4090 
&100 








8000 
8010 
BO20 
8050 


Boao 
8050 
2040 


J 
8070 


Pi 


NEXT J 
NEXT I 

PRINT AT 0,25; "44E" 

ED SUB 1000 

ao TO 3040 

REM Initialiseer simmatie ARRAY 

FOR I=i TO br 

FOR Jel TO be 

LET BCI, a) =b 

NEXT Jd 

NEXT I 

RETURN 

REM 

REM verplaats array naar _ geheugen 

PRINT AT 0,25; FLASH 15 PA Sp INK 75 "SAVING" 
FOR Met TO me 









LET h KCHEP): LET hesBk(de2 OR beed) 
FOR Iet TO 8 
LET te 


FOR J=8 TO 1 STEP =1 

IF B(Ithr,Jtho)=l THEN LET tett2e(-J) 
NEXT J 

FOKE (SCH) tI=1),t 

NEXT 1 

NEXT H 

PRINT AT 0, 254 "4HHHHEE" 

PRINT AT 0,25; PAPER 39 INK 77 "SAVED!!" 
RETURN 

REN 

REM list geheugenwaarde van karakter 
PRINT AT O, Os HIER" 

FOR Hei TO nc 

LET he=(He? OR He4)KEtle LET bes CHE) KO 








PRINT AT hr‚ha-is PAPER 13 INK 73 "R&"GCHR$ (CODE E$tH- 





OR Iet TO 6 





PRINT AT hr+1, hes PEEK 
NEXT 1 


(BCH #1) 







2 THEN PRINT CHRB (UGti) 


ODE K$+79: PRINT AT 8,11; OVER Os; CHR$ UG; 


IE me=4 THEN PRINT AT 9,11; OVER Os CHR$ (UG+P);CHR$ ( 


RETURN 
BORDER Sr: INK Os PAPER 73 OVER Oz FLASH Os: CLS 
REM toets repre van KAR: DIM E$(1) 

PRINT "Welk#karaktertprogranmeren#? 





PRINT "(AH)" 


LET K&=INKEYS: IF E&>="O!" AND K$i="U" THEN GO TO 8060 








IF K$<"a' OR K&'u' TH GO TO 8030 
LET K&=CHR$ (CODE f$ 


PRINT Kie PRINT 2 








LET me= (CODE INKEYE)-48): IF nel OR nes4 OR (CODE 


+nct79-i) 164 THEN BO TO 8070 


INT "Hoeveel tkarakterst tit (LE-#4) 


Es 
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8080 IF nc=5 THEN LET ne=4 

8090 PRINT nc: FOR I=l TO 50: NEXT Is CLS 

BOO DIM S(nu)r REM geheugen adr karakterset 
8110 LET br=e8k(lt(nee=4d)): LET hb KCLt nr) 
8120 DIM C(bea)s DIM Elbr,be): REM simulatie array 
8150 FOR I= TO neet 

8140 FRINT INK 2;CHR$ (CODE ESI) gs 


8150 LET S(I+1)=USR CHRÉ (CODE K&+I)t REM geh adres kar set 











Hz REM print karakter 


8160 NEXT I 
8170 PRINT AT 0,25: FLASH 14 PAPER 13 INK 77 "LOADING" 

8180 LET be: GO SUR 4000: REM initialiseer ARRAY 

8190 GO SUB 2000: REM kar array 

8200 LET r=0: LET c=14 

8210 GO SUB 1000: REM Haal KAR terug 

8220 PRINT AT ©, 255 "#iHHER" 

GO SUB 3000: REM Edit KAR 

BO SUB 6000: REM list geheugenwaarde 

PRINT AT 20,0; "Copietop#printer?#(jtof tn)"; 

8260 LET g$=INKEYS: IF g&{>"j" AND gern" THEN GO TO 8260 















2270 PRINT gé 
8280 IF g&="n" THEN GO TO 8220 
8290 PRINT AT 21,03 "Willekeurige#toetatalstjeëklaartbent": 
PAUSE 2000 

8300 IF INKEY&="" THEN GO TO 8200 

8310 COPY 

8320 PRINT AT 20,Oslf: PRINT AT 21,05L$ 

8330 PRINT AT 21,0:L% 

8540 PRINT AT 20,0; "Anderettkarakterstveranderent7iH4Ht Ojttof in 
)"z1 PAUSE 200 

B350 LET g&=INKEY&: IF q&2"j" AND g&2#"m" THEN GO TO 











8560 FRINT qgé 
BE70  g="'n" THEN STOF 
8580 FIN 





6.2 Regelhernummering 
(Copyright Beam Software) 


Beschrijving 

Hier volgen een paar programma’s die nuttig kunnen zijn als het geregeld voorkomt dat u 
een programma ontwikkeld heeft en dan merkt dat de regelnummering een chaos is en 
geen ruimte meer toelaat om die geniale subroutine in te voegen die u net had bedacht. 


Model 1 (hernum1) is een kort hernummerprogramma dat automatisch alle regels tussen 
regel 100 en 9990 (waar model 1 begint) hernummert in stappen van 10. 


Model 2 (hernum2) is een kort programma met dezelfde specificaties als model 1 behalve 
dat het ook alle GOTO en GOSUB-instructies in een regel op het scherm zet, vergezeld 
van het nieuwe regelnummer. 
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De GOTO en GOSUB-instructies worden zelf niet aangepast omdat bij de ZX-Spectrum 
deze instructies ook gebruikt kunnen worden met een variabele in plaats van een getal. 
Het zou te moeilijk zijn voor het programma om deze ook te berekenen. De beste oplos- 
sing is om op het scherm aan te geven waar ze staan in de hernummerde versie zodat u ze 
zelf kunt aanpassen. 


Model 3 (hernum3) is de lange versie van het hernummerprogramma. Het kan een blok 
regels hernummeren in elke stapgrootte en zet de GOTO en GOSUB-instructies op het 
scherm. Het GOTO en GOSUB-rapport kunt u naar de printer sturen, maar het belangrijk- 
ste is dat het programma compleet Menu-gestuurd is met grote nadruk op de ‘'gebruikers- 
vriendelijkheid’. 


Om een van deze modellen te kunnen gebruiken moet u ze met een MERGE inladen in 
plaats van met een LOAD, omdat anders het programma dat u wilt hernummeren uit het 
geheugen zou worden geveegd. 

Een regel in een BASIC-programma wordt als volgt in de SPECTRUM in het geheugen 
opgeslagen: 


2 bytes: regelnummer met meest gehanteerde byte voorop. 
2 bytes: regellengte met minst gehanteerde byte voorop. 
n bytes: inhoud van de regel inclusief ‘end of line'-byte. 


Het BASIC-programma begint op adres 23755 als er geen Microdrives zijn aangesloten. 


Model 1 hernummeren 
Gebruik RUN 9990 of GOTO 9990 om het programma op te starten. 


Programma-opbouw 


zet NIEUW regel # op 100 
zet geheugenpointer op 23755 

L1: als oud regel # > = 9990 dan STOP 
plaats NIEUW regel # in geheugen 
zoek verhoogd NIEUW regel # 
zet geheugenpointer op volgende regel 
ga naar L1: 


Opmerkingen 

Om het hernummerprogramma uit het geheugen te verwijderen na gebruik zou u het Re- 
gelblok verwijder-programma elders in het boek kunnen gebruiken. 

Dit hernummerprogramma beslaat regel 9990 - 9995, 


Model 2 hernummeren 
Gebruik RUN 9988 of GOTO 9988 om het programma op te starten. 
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Programma-opbouw 


initialiseer NIEUW regel #, stapgrootte, begin van blok en eind van blok 
zoek geheugenadres begin van blok 
Lí: als eind van blok bereikt dan STOP 
POKE NIEUW regel in geheugen 
rapporteer een eventuele GOTO en GOSUB in deze regel 
pas geheugenpointer en regel # aan 
ga naar L1: 


Opmerkingen 

Daar dit programma een ingebouwde code heeft om het geheugenadres van het begin 
van een blok te vinden kunt u de namen en waarden van de variabelen in regel 9988 
aanpassen aan uw eigen wensen. Ook als u dit korte programma wilt verwijderen dan 
moet u dat met de hand doen of het programma Regelblok verwijder gebruiken. 

Als u het GOTO en GOSUB-rapport op de printer wilt zetten, dan zult u dat bij dit program- 
ma nog met de hand moeten doen. 


Dit hernummerprogramma beslaat regel 9988 - 9999. 


Model 3 hernummeren 
Gebruik RUN 9900 of GOTO 9900 om het programma op te starten. 


Programma-opbouw 

In dit programma worden technieken toegepast om met het scherm te communiceren, om 
het eerste en laatste regelnummer van het te hernummeren blok, de stapgrootte en de 
nieuwe beginregel van het blok bij de gebruiker op te vragen. 

Alle opgevraagde waarden worden tot een integer getal afgerond. 


De opbouw is als volgt: 


Invoer 
begin- en eindregel van het blok 
stapgrootte en nieuwe beginregel van het blok 
Zoek geheugenadres beginregel 
CALL HERNUMMER module (gelijk aan model 2) 
OPTIE VERVOLG met HERNUMMER ander blok 
of COPIE GOTO en GOSUB-rapport naar printer 
of STOP; stop of verwijder model 3 uit geheugen 


Opmerkingen 
Dit programma biedt u de mogelijkheid zichzelf uit het geheugen te verwijderen na ge- 
bruik. 


Het hernummeren geschiedt inclusief de blokregels. 
Het programma beslaat regel 9900 - 9999. 
Als u de optie kiest om het programma zichzelf te laten verwijderen dan moet u na afloop 
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9900 intikken, gevolgd door ENTER omdat het programma zichzelf in een lang REM-sta- 
tement zet op regel 9900. 
Het programma kan ookte allen tijde worden verwijderd door GOTO 9945 inte tikken. 


Een interessante toepassing van dit programma is het vastleggen van een bepaalde 
boodschap in een REM-statement, bijvoorbeeld 

10 REM Copyright Beam Software 
U kunt deze regel dan hernummeren tot rege! 0 door als nieuwe beginregel 0 op te geven. 
Na hernummering is deze regel niet meer te veranderen of te verwijderen tenzij het regel- 
nummer weer veranderd wordt in een getal groter dan 0. 


Programma 


99G0 REM HERNUMMER madel 1 
9991 LET 1=1001 LET n=22 
9992 IF (Z5EKPEEK n+PEEK (m+1))#=9990 THEN STOF 

9995 POKE n, INT (1/256 PDKE (mt-1),1=INT (1/256) K256 
9994 LET l=l+10: LET nentS+PEEK (n+2)+256kPEEK (n+3)+1 
9995 GO TO 9992 








Programma 


9987 REM HERNUMMER model 2 

9908 LET NIEUW=lG0: LET STAP=10: LET EVB=100: LET EVB=9980 
9989 LET L=NIEUW: LET n 
99 IF (2EEKPEEK n+PEEK (m+1))#=BVD THEN GO TO 9992 

9991 LET nentZtPEEK (n+@)+256kPEEK (n+2)+1l: 60 TO 9990 
9992 LET NI=(25EKPEEK n+PEEK (nt1)): IF NISEVE THEN STOF 
9995 POKE n,INT (1/256) 

FGA POKE (n+1),1-256KINT (1/256) 

IIP FOR IeN44 TU NES+PEEK (N42) +2SKPEEK (N42) 

9596 IF PEEK I=236 OR PEEK I=257 THEN PRINT Li "=";CHR$ PEE 
KI 

BEI MEST T 

9993 LET Nel: LET Lel +STAP 

999 GO TO 9992 

















Programma 


PGO REM 

9901 REM HERNUMMER model 5 

IOR LET BVB=100: LET EVB=0999: LET STAF: 
9905 BORDER 7 APER 71 INK 1u CLS 

9304 PRINT AT 0,7; INVERSE 13 “REGELSHERNUMMERSMENU" 

9905 PRINT AT 2,17; INVERSE 1; "HUIDIG";AT 2,27; INVERSE 15" 
NIEL 

9306 PRINT AT 4,0; "Beginregel#=" 

9907 PRINT AT 4,18+4-LEN (STR&$ BVE); EVE 

9908 PRINT AT 6,0: "Eindregelg=" 





LET NIEUW=100 
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9909 PRINT AT &,18+4-LEN (STR$ EVE) ;EVE 

9910 PRINT AT B,0; "Nieuwettbeginregelit=" 

9911 PRINT AT B, 18+4-LEN (STR$ NIEUW) ; NIEUW 

9912 PRINT AT 10,03 "Stapgroottet=" 

9913 PRINT AT 10,18+4-LEN (STR& STAF) ; STAP 

9914 PRINT AT 14,04 INVERSE Ls "TikBENTERHintal stter #geenttitt 
HERH verander ingenknodi gie i joie 

9918 REM input parameter 

9916 PRINT AT 4,26: FLASH 1; INVERSE 13"#"s; FLASH O4 INK 2; 
AR 

9917 INFUT St: IF S$="" THEN GO TO 9919 

9918 LET BVB=INT (VAL S$+.5) 

9919 PRINT AT 4,263 "#";AT 4,27+4-LEN (STR& EVE) ; BVE 

9920 PRINT AT 6,265 FLASH 13 INVERSE 14"; FLASH Oj INK 2 
Edd 

9921 INFUT 5%: IF St="" THEN GO TO 997 
9922 LET EVE=INT (VAL 8%+.5) 

9925 PRINT AT &,264"#"3AT 6, 27+4-LEN (STR$ EVH) ;EVB 

9924 PRINT AT B, 26; FLASH 1s INVERSE 14 ">"; FLASH Oy INK 2 
vite 

9925 INPUT 8%: IF Sé="" THEN GO TO 9927 

9926 LET NIEUW=INT (VAL 
9927 PRINT AT B‚24j"#" „2744 
28 PRINT AT 10,26; FLASH 1; INVER 






















E NIEUW) ; NIEUW 


E FLASH Os ENE 2 








IF S&="" THEN GO TO 9921 
4 NT (VAL S&+ 
PRINT AT 10,26; "#"3AT 10,27+4-LEN (STR STAF); STAP 
FOR Kel TO SO: NEXT 1 
REM zoek beginregel 

LET N=25755 
5 IF 256XPEEK 











M+PEEK (N41) seBVE THEN GO TO P927 
LET Ne (N REE NEE) 4256 K Ek (NES) e1)2 GO TO 99E5 
ELS 1 PRINT AT O,11: FLASH 1g INK 24 INVERSE 14 HERNUM 








995E GO SUB FIL 


2959 PRINT AT 0,11; INK INVERSE 17 "HROE REL AARH! 










9940 INPUT verwe "gekSTOP UfcopietopkprinterkHElketander 
ettaets#VERVOLG. * 
9941 IF 5%: THEN COPY 1 GO TO 9940 





9942 IF SSA THEN GO TO 9907 

9945 INFUT "" tv! ttvarwijderthettprogrammatttkkRHEME ketande 
vettoetstekSTOPR! ; 6 

9944 IF THEN STOP 







2E kPEER NEPEEK (N41) THEN 60 TO 9248) 
(NES) t1) 1 GO TO 9946 





HZ) ABBOKPEER (NE5)2 LET DL=Dttnit4 

2e (LSÓKPEEK MIPEEK (N+1))a IE 19995 THEN LET N 
=NtStnltt: GO TU 9949 
9951 LET ni=INT (DL/256): POKE (DA+i),nir FOKE DA, DL=n 1254 
: POKE (DA+2), 254 

9952 PRINT AT 21,04 "Tik#"; FLASH 13"9POOHHLENTERS"s FLASH G 
"kin" 
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9955 STOF 

9991 LET LeNIEUW 
9992 IF (ZSAKPEEK N+PEEK (N+1)) EVE THEN RETURN 
99E POKE N,INT (L/256) 

9IF4 POKE N4i,L-2SGKINT (L/256) 

9995 FOR I= TO N+5+PEE CNH) HEBOKPEER (NEE 
2996 IF PEEK I=256 OR PEEK I=227 THEN PRINT L 










} 





CHR$ PEE 





9997 NEXT 1 
9998 LET Nel: LET LelL+STAP 
9999 GO TO 99E 


6.3 Regelblokverwijder 
(Copyright Beam Software) 


Beschrijving 

Dit is ook een programma dat elke Spectrum BASIC-programmeur niet kan missen bij het 
ontwikkelen van zijn programma’s. Als u het hernummerprogramma al bent tegengeko- 
men in dit boek, dan weet u dat dit Regelblokverwijder-programma zeer handig is bij het 
verwijderen van het hernummerprogramma als dat zijn werk eenmaal gedaan heeft. Daar 
komt bij dat dit programma ook nog eens zichzelf uitveegt. 

Opnieuw worden scherm-communicatietechnieken gebruikt om de eerste en de laatste 
regel van het te verwijderen blok op te vragen. Het programma is ’slim’ genoeg om alleen 
regels groter dan of gelijk aan de eerste regel en kleiner dan of gelijk aan de laatste regel 
uitte vegen. Dus zelfs als u een niet-bestaand regelnummer opgeeft, dan zal het program- 
ma nog geen 'crash’ geven. Om het programma te gebruiken moet u de begin- en de 
eindregel van het te verwijderen blok opgeven. U kunt dus ook maar 1 regel verwijderen 
door de begin- en eindregel van het blok aan elkaar gelijk te maken. Als het programma 
klaar is vraagt u het blok te verwijderen door de beginregel in te tikken, gevolgd door EN- 
TER. 


Programma-opbouw 

Het in dit programma gebruikte algoritme telt alle bytes in het geheugen vanaf het adres 
wat de regellengte bevat van de beginregel van het blok, tot aan de 'end of line’ byte van 
de eindregel van het blok. Het getelde aantal bytes wordt dan gePOKEd in het adres wat 
de regellengte van de beginregel bevat en in het daaropvolgende adres wordt 234 (de 
code voor REM) gePOKEd. In feite wordt hiermee het hele blok in een lang REM-state- 
ment gezet. Door nu het nummer van de beginregel in te tikken, gevolgd door ENTER, 
wordt deze regel in zijn geheel verwijderd. 


De opbouw is als volgt 


Invoer begin- en eindregel van te verwijderen blok 
Zet HERINDELING boodschap op scherm 

Zoek geheugenadres beginregel 

Sla adres regellengte op en initialiseer nieuwe lengte 
Tel bytes tot einde blok 
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POKE aantal bytes in adres regellengte 
Zet OK KLAAR boodschap op scherm 
Zet VERWIJDER PROGRAMMA? boodschap op scherm 


Opmerkingen 

Als het herindeling-proces klaar is, maar u heeft nog niet het nummer van de beginregel 
ingetikt, gevolgd door ENTER, dan zijn de regels binnen het blok nog niet verwijderd. De- 
ze kunt u nog steeds aanroepen, met uitzondering van de beginregel, want als u die aan- 
roept dan wordt het hele blok alsnog verwijderd. 

Mocht u van deze mogelijkheid gebruik willen maken, dan is het wel verstandig om het 
programma eerst even op cassette weg te zetten. 

Dit programma moet u met een MERGE-instructie inladen omdat een LOAD-instructie het 
programma waarbij u het wilt gebruiken zou uitvegen. 


Programma 


9975 REM 

9974 REM REGELBLOK VERWIJ 
9975 OVER Os: FLASH PAPER 71 INK 1: CLS 
9974 PRINT AT 0,73 INVERSE 1; "REGELELOKHVE! 
9977 PRENT AT 4,0; "VERWIJDERH (INCLUSIEF) " 
9978 PRINT AT 6,73 "VANAFHREGEL " 

9979 PRINT AT 8,7; "TOTH#HREGEL "5 

9980 PRINT AT 6,197 FLASH 1j!"!s FLASH Os INK 23 INVERSE 13 
hk iik 

9I81 INPUT S%: IF VAL Sz OR VAL 8429972 THEN GO TO 9981 
9982 LET SOD=INT (VAL 8%) 

9983 PRINT AT 6,193 "HEREN" ZAT 6, POF4-LEN (STR$ SOD) $ SOD 
9984 PRINT AT 8,19; FLASH 14"2"'s FLASH Os INK 23 INVERSE 15 
ME hikinidsd 

9985 INPUT S%: IF VAL S$20 OR VAL S#29972 THEN GU TO 9945 
9986 LET EOD=INT (VAL S%) 

9987 PRINT AT 8,193 "EHEER" GAT B 
9988 PRINT AT 11,10; FLASH 15 IN 











RWIJDER" 






FALEN (STR$ EOD) EOD 
27 INVERSE 17 "HERINDELEN" 


9989 LET Ne23755 

9990 IF ZEEKPEEK N4PEEK (N-I) :=S0D THEN GO TO 9992 

9991 LET Ne{N+E+PEEK (N+2)+2SOKPEEK (NS) +1)2 GO TO 9990 
AI LET D LET Dld 

9995 LET n EEK (N+2) +256RPEE (N+E) LET DleDltni+4 

9994 LET n2= (2IEKPEEK NAPEEK ON+I))t IF D2SEOD THEN LET N= 
N+Ztnltl: GO TO 9995 

9995 IF n2:EOD THEN LET DLeDl-ni=4 

9996 LET nI=INT (DL/256): FOKE (DA+1),nl: POKE DA, DL-n1x256 
1 POKE (DA+Z), 254 

9997 PRINT AT 11, 1Os VBHREHSIERHH! ZAT 11,1 
13 "OEBELAAR" 

9998 PRINT AT 15,03" TIER"s FLASH 13 80D? "AZEN 
3 SHINHOMKELOERTERIERHVERWIJDEREN" 

9999 STOP 
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6.4 Machinetaalmonitor 
(Copyright Beam Software) 


Op sommige plaatsen in dit boek wordt gesproken over machinetaal-programma's die 
efficiënter zijn dan BASIC, en in sommige gevallen zijn dergelijke programma's gebruikt 
om te laten zien dat ze sneller zijn en geheugenruimte besparen. 

U zult zich ondertussen dan ook wel afvragen wat nu precies het verschil is tussen BASIC 
en machinetaal, 


Om te beginnen moet u eerst weten dat de Spectrum eigenlijk uw BASIC-programma 
nooit uitvoert. De chip die in deze computer al het werk doet, de Z80 begrijpt helemaal 
niets van BASIC. Het enige wat die chip begrijpt is een zeer beperkt aantal eigen instruc- 
ties, zoals bijvoorbeeld tel twee getallen bij elkaar op, trek twee getallen van elkaar af, 
vergelijk twee getallen met elkaar enz. 

Nu is het wel zo dat met deze simpele instructies bijna alles gedaan kan worden. De meest 
ingewikkelde bewerking is namelijk altijd te herleiden tot een reusachtige hoeveelheid 
zeer eenvoudige problemen. 

Maar zelfs een relatief simpele instructie zoals vermenigvuldigen wordt door de Z80 niet 
begrepen. Om dergelijke taken te verrichten moet er een programma geschreven worden. 


Uw Spectrum werd geleverd met een zeer lang machinetaal-programma kant en klaar 
ingebouwd. Dit programma, dat 16K bestrijkt, zit in een chip gebakken zodat u het niet 
elke keer hoeft in te laden als u de computer wilt gebruiken. 

Deze chip wordt de ROM-chip genoemd naar het Engelse Read Only Memory. wat dus 
betekent dat u de informatie die hier in staat niet kunt veranderen (dit in tegenstelling tot 
zgn. RAM-chips ‘Random Access Memory’ die u kunt uitlezen en kunt veranderen). 
Dit programma in de ROM leest wat u de computer via het toetsenbord vertelt en zorgt 
ervoor dat het gewenste resultaat geleverd wordt. Een eenvoudige regel in BASIC kan 
honderden regels machinetaal nodig hebben om zijn taak uit te voeren. 

U zult ondertussen wel begrijpen dat het voor ons mensen veel gemakkelijker is om in 
BASIC te programmeren, maar dat het programma niet altijd zo snel zal lopen als wij ons 
dat wensen. 


‘Machinetaalmonitor’ pretendeert geenszins ute leren programmeren in machinetaal. He- 
le boeken zijn hier over vol geschreven en als u geïnteresseerd bent kunnen we u wel twee 
boeken aanraden: 
“_Machinetaal voor de ZX Spectrum door William Tang. 

(uitgave van Kluwer Technische Boeken) 
*_ Understanding Your Spectrum door Dr. lan Logan. 


De opbouw van machinetaal-programma’s 
De opbouw van machinetaal verschilt nogal van BASIC, Enkele belangrijke verschillen 
zijn: 
* Variabelen bestaan niet. 
Er bestaat geen direct equivalent voor bijv. 
LET score = 3. 
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Wat de Z80 betreft bestaat er alleen maar zo iets als een geheugenadres. 

Als u de Spectrum-handleiding bekijkt dat vindt u op blz. 173 - 176 een lijst geheu- 
genadressen die door de ROM als variabelen gebruikt worden. 

De waarden in deze adressen kunt u veranderen, met uiteenlopende resultaten, maar 
meer overeenkomsten met variabelen bestaan er eigenlijk niet. 


*_Regelnummers bestaan niet. 

Als de Z80 instructies uitvoert dan gaat dat één voor één, in de volgorde waarin hij 
ze tegenkomt. 

Er bestaan wel instructies zoals GOTO en GOSUB, maar deze instructies springen 
naar een opgegeven geheugenadres. Dat betekent dat in het algemeen machinetaal- 
programma's ontworpen zijn om te functioneren op een bepaald gebied in het geheu- 
gen. 

Er zijn wel programma’s die niet plaatsgebonden zijn, maar die worden later behandeld. 

5 aar B 5 : 

* Alle gebruikte getallen liggen tussen-de-Q - 255 of Q - 65535 (bij gebruik van res- 
pectievelijk één of twee geheugenplaatsen). Het getal dat dus per geheugenadres kan 
worden gebruikt ligt dus tussen O en 255. Om deze waarden gemakkelijk te kunnen 
gebruiken is er een aparte notatie ontwikkeld, de zgn. hexadecimale notatie (afgekort 
tot Hex of H). Het gaat te ver om dat hier uit te leggen, maar achterin de Spectrum- 
handleiding (blz. 183-188) staat een omrekentabel. 


Wat Is PEEK en POKE? 

Nu u een beetje beter begrijpt hoe de Spectrum werkt snapt u wel dat er geen eenvoudig 
equivalent is voor LET a = b. 

Wat er het dichtste bijkomt is om aan a en bte denken in termen van de inhoud van bepaal- 
de geheugenadressen in plaats van als variabelen. Hoe weet u nu de inhoud van een 
adres? 

Met de BASIC-opdracht PEEK kunt u de inhoud van geheugenplaatsen uitlezen zonder 
dat u die inhoud verandert. Zo komt u te weten hoe groot b is. Denk er wel aan dat een 
adres altijd een waarde tussen O - 255 zal bevatten. 


U kunt de inhoud van een adres veranderen met een POKE-opdracht. Met deze niet be- 
paald subtiele en vrij definitieve opdracht kunt u behoorlijk wat schade aanrichten in uw 
programma’s (niet in de computer). POKE maar eens wat willekeurige getallen in de sys- 
teem variabelen (blz. 173-176 van de Spectrum-handleiding), vooral op die plaatsen waar 
een X bijstaat. 


Hex-notatle 

Als u op blz. 183-188 van de Spectrum-handleiding kijkt dan treft u daar een kolom aan 
met Hex-getallen. 

Wat opvalt is dat: 


Elk getal is altijd twee karakters lang. 
Alleen de cijfers 0-9 en de letters A-F worden gebruikt. 
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Dit is het grote voordeel van Hex-notatie. 


De letters A-F staan voor de waarden 10-15. Om nu een Hex-notatie om te rekenen in 
decimale notatie moet u de waarde in de eerste kolom vermenigvuldigen met 16 en daar 
de waarde uit de tweede kolom bij optellen (hetzelfde als bij een decimale notatie maar die 
werkt met een basis van 10 in plaats van 16). 


Bijv: OA Hex = 10 decimaal 
11 Hex = 17 decimaal 


Het Machinetaal-Monitorprogramma 

Hiermee kunt u ieder adres bekijken in de Spectrum, of dat nu in ROM is, of in RAM (het 
normale geheugen bestaande uit scherm, systeem variabelen, BASIC-programma, BA- 
SIC-variabelen, leeg geheugen en vrij programmeerbare karakters, (zie schema blz. 165 
van de handleiding). De inhoud van RAM-adressen kunt u met dit programma naar wens 
veranderen. 

Als u erg veel waarden in een bepaald geheugengebied moet invoeren dan is dit zeker 
niet het beste programma om mee te werken (zie hiervoor andere programma’s in dit 
boek, bijv. het DAM-programma), dit programma is uitstekend geschikt om een geheu- 
gengebied te onderzoeken en aan te passen. 


Elke regel op het scherm toont de inhoud van 10 adressen in Hex-notatie. Gebruik de 
pijltoetsen (CAPS SHIFT 5-8) om de cursor te besturen. Door een andere toets dan een 
pijltoets te gebruiken kan de inhoud van het adres onder de cursor veranderd worden. 
Denk er wel aan dat u de gewenste waarde in Hex-notatie moet invoeren. 


Interessante oefeningen 

* Probeer de inhoud van een geheugenadres in de ROM te veranderen (adres < 
16384). 

Probeer de inhoud van een adres tussen 22528 en 23295 te veranderen. Dit is het 
gebied van de schermattributen. 

Probeer de inhoud van een adres tussen 16384 en 22537 te veranderen. Dit is het 
gebied van het scherm zelf. 

Zoals u misschien wel weet beslaat elk karakter op het scherm acht geheugen- 
plaatsen die echter niet opvolgend zijn. Probeer het verband tussen deze acht te vin- 
den. 


Met deze oefeningen kunt u geen schade toebrengen aan de programma's of de compu- 
ter. Schade toebrengen aan de computer door programmeren, bijv. een POKE-opdracht, 
is zonder meer onmogelijk. Het ergste wat er kan gebeuren is dat de computer niet meer 
luistert naar het toetsenbord. In dat geval moet u even de stroom uitschakelen en bent u 
alles wat er in stond kwijt. 


Verplaatsbare Machinetaalprogramma’s 
Sommige machinetaalprogramma's worden verplaatsbaar genoemd (relocatable'), wat 
betekent dat ze overal in het geheugen kunnen functioneren. 
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Zulke programma's zijn uitstekend geschikt als hulproutine bij een BASIC-programma 
omdat ze overal waar ruimte is, geplaatst kunnen worden. 

De schermschuif-routine uit het KIDNAP-programma in dit boek is daar een goed voor- 
beeld van. 


Hier volgt nog zo'n nuttig verplaatsbaar programma; een regelhernummer-routine. Als u 
dit programma vergelijkt met de BASIC-versie elders in het boek dan merkt u dat dit ma- 
chinetaal-programma veel korter is, slechts 27 bytes lang, en stukken sneller werkt. 
Om dit programma in het geheugen te krijgen kunt u het korte BASIC-programma gebrui- 
ken of u kunt de bytes met behulp van uw monitorprogramma in Hex-notatie invoeren 
vanaf adres 32500 (zie eerste kolom 'assembly-uitdraai’ verderop). 

Nadat het programma is ingevoerd, is het verstandig om het eerst weg te schrijven op 
cassette met behulp van een 

SAVE ”" CODE-opdracht. 

Om een machinetaalprogramma op te starten gebruikt u een USR-instructie waarin het 
beginadres van het programma specificeert; bijv. PRINT USR 32500 of LET L = USR 
32500. 

Zorg er wel voor dat de machinetaal in een veilig gebied staat, bijv. boven een CLEAR of in 
het VPK-gebied. 

Dit machinetaalprogramma hernummert alle regels vanaf regel 100 in stappen van 10. 
Deze waarden kunt u veranderen door het vijfde getal (nu Hex 5A=90: 100-10) en het 
dertiende getal (de stap, nu Hex OA=10) aan te passen aan uw wensen. Het programma 
hernummert geen GOTO en GOSUB-opdrachten. 


‘Assembly-uitdraai’ machinetaalhernummerprogramma: 


11 CA 5C LD DE, 5CCAH begin BASIC 

21 5A 00 LD HL, 90 seerste regelstap 

13 volgr ING DE 

1A LD A, (DE) :wat staat daar? 

FE 28 CP 28H code einde regel? 

Do RET NC ‚nee => klaar! 

01 OA 00 LD BC, 10 ;stapgrootte 

09 ADD HL,BC ;nieuw regelno. 

EB EX DE, HL tijdelijke ruil 

72 LD (HL),D ;sla nieuw regno.op 

23 INC HL 

73 LD (HL,E 

23 INC HL izoek regellengte 

4E LD C, (HL) ;sla op in BC 

23 INC HL 

46 LD B, (HL) 

09 ADD HL, BG ;pos.einde regel 

EB EX DE, HL seinde ruil 

18 EB JR volgr ‚ga naar volgende 
regel 
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Progr 
ro 


100 
HER 
110 
120 
1350 
140 
150 
HH 
140 
170 
180 
Le 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
z00 
510 
520 
350 
340 
550 
360 
500 
510 
600 
&10 
&20 
630 
640 
650 
660 
670 
680 
690 





1060 
1070 


amma 
REM monitor 
PRINT ENK 7; PAPER 23AT 0,0; “MACHINERT AALSMONI TORE 


INFUT “Start#adrestt(decimaal)#'ss 

LET OXINT (s/10) 

LET x=0: LET y=0 

BO SUB 1000 

PRINT INK 74 PAPER 2; AT 0,0; “MACHINESTAALBMONITORH### 








PRINT OVER fj; FLASH 1;AT Z+2kx, ZtSkyg UHN 
LET as=INKEYS 

IF CODE a&:12 AND CODE a%>7 THEN GO TO 600 
IF CODE a&=0 THEN GO TO 170 

INFUT "VERANDERHEYTESWAARDER NH (lex) #' jab 
IF LEN ats»2 THEN GO TO 160 

GO SUE 500 

IF vx OR vel THEN 60 TO 170 

LET h 
LET afzat (2) 

60 SUB 500 

IF vs0 OR vò15 THEN GO TO 170 











&kne1 

FOKE s+10kxty, v 

PRINT OVER 13 FLASH 04 AT E42, Ze3kys "tt" 

IF y=? THEN GO SUE 1000 

LET y=y+1 

IF y>9 THEN LET y=ûr LET x=xti 

IF {10 THEN GO TO 140 

GO TO 750 

LET v=CODE a%-48-7K(CDDE at>b4)-S2(CODE af 276) 
RETURN 

PRINT OVER 1; FLASH 0; AT 
GO TO S4O+1OKCODE a$ 

LET y=y=lt GO TO 660 

LET y=y+i: GO TO 700 





„EEEKy VAER 





LET GO TO 720 

LET GO TO #80 

IE THEN GO TO 160 
1 


TO 140 
LET s=g-10: CLS « GO TO 1 
IF ys10 THEN GO TO 160 
LET yer LET # +1 

IF xe THEN GO TO 140 
G THEE GES rf LET 
GO TO 140 

IF {O0 OR s:65550 THEN GO TO 110 

PRINT AT Zt2 Ozstlûkxe PRINT TAB 24 

FOR isstlokx TO s+tlOkx+9 

IF i>68555 THEN LET isstlOkl+9: GO TO 150 











stiks GO TO 150 














LET v=FEEK iz LET heINT (v/16): LET Lev-i6kh 
PRINT "H"+CHRE (h+4BA7K (NEO ACHRE OL 4BH7K (2D) 7 
NEXT i 

RETURN 


97 





Programma 


100 inetaal hernummer 
105 500: LET a=32500 

110 POKE an 

120 LET azatl: GO TO 116 

130 DATA 17,2 2,33, 20,0, 19,26, 254,40, 208,1, 10,0,9, 235,1 
14,35, 115, 35,78, 35,70,9, 235, 24, 225 

140 FOR i=û TO 26 

150 PRINT PEEK 
160 NEXT à 














BOOtiD gg 
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7. Zakelijke programma’s 


7.1 Loonlijst 
(Copyright Beam Software) 


Dit programma berekent de inkomens van werknemers en zet een overzicht op het 
scherm dat gebruikt kan worden om loonstaten te produceren. Het overzicht begint met de 
optie om 


of Invoer naam van werknemer, uurloon en overwerkhonorering. 
Indien gewenst kunnen deze werknemergegevens op cassette worden gezet. 


of Inladen van eerder op cassette gezette werknemergegevens. 


Aan het eind van elke loonperiode worden de werknemersuren ingevoerd (normale uren 
en overwerk) waarna het programma het brutosalaris voor elke werknemer berekent. 
Hoewel dit programma maar geschikt is voor maximaal 18 werknemers kan er bij gebruik 
in een kleine onderneming toch veel rekenwerk bespaard worden. 

Alle invoer en uitvoer wordt via het scherm geregeld, een knipperende cursor op het 
scherm geeft aan met welk onderdeel er gewerkt wordt. Alle gegevens worden door de 
computer dusdanig gehanteerd dat ze netjes onder elkaar komen te staan. 

Nadat alle invoer en berekeningen afgesloten zijn kan met elke toets een van de volgende 
drie hoofdschermen worden opgeroepen: 


Werknemergegevens 
Uurloonoverzicht 
Salarisoverzicht 


De salarisberekening is tot op de cent nauwkeurig. 
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Programma-opbouw 

Dit programma is één van de drie Spectrum-financiële modellen in dit boek. Een van de 
grote verschillen tussen dit soort programma’s en bijv. spelletjes is dat alle invoer en uit- 
voer op een zeer gebruikersvriendelijke manier geregeld moet worden. Wat het program- 
meren zelf betreft zult u merken dat dit voornamelijk bestaat uit berekeningen en 'string’- 
handelingen. 


Initialisatie 
initialiseer vlaggen drie schermen 
initialiseer schermvariabelen 


Werknemergegevens 
als ’I' of ’i’ (invoer nieuwe gegevens) 
invoer aantal werknemers (1-18) 
dimensioneer de volgende arrays: 
E$ werknemergegevens 
R$ normale uren 
O3 overwerk 
G$ brutosalaris 
als 'L' of T' (laadt gegevens op van cassette) 
invoer werknemergegevens van cassette 
dimensioneer bovenstaande arrays behalve E$ 
|: zet werknemergegevens op scherm 
als RM-vlag is invoer (RM=0) 
zet RM op 1 (= scherm) 
invoer NAAM werknemer en uurloon 
invoer overwerkhonorering 
sla gegevens op 
return 
zet gegevens opnieuw op scherm 
optiegegevens op printer 
return 


Loonlijst uurloonoverzicht 

zet uurloonoverzicht op scherm 

als PM-vlag is invoer (PM=0) 
zet PM-vlag op 1 (scherm) 
invoer normale uren en overwerk 
return 

zet uurloonoverzicht opnieuw op scherm 
optie-overzicht op printer 

return 


Loonlijst salarisoverzicht 
als PR-vlag is bereken (PR=0) 
zet PR-vlag op 1 (scherm) 
initialiseer TP (totaal brutosalaris) 
bereken en tel op alle salarissen 


100 








zet salarissen in corresponderende arrays 
zet salarisoverzicht op scherm 

optie-overzicht op printer 

return 


Hoofdlus 
Werknemergegevens 

L1: Loonlijst urloonoverzicht 
Loonlijst salarisoverzicht 
GOSUB I: 
GOTO Li: 


Opmerkingen: 

De werknemergegevens-array is als volgt opgebouwd: 
*_ eerste item 

plaats 1-5 aantal werknemers in array 
plaats 16-21 overwerkhonorering 


volgende item 
plaats 1-15 naam werknemer 
plaats 16-21 uurloon werknemer 


Er zijn drie hoofd-arrays die ieder voornamelijk twee taken moeten uitvoeren; invoer/bere- 
kening en overzicht op scherm. 

Om te bepalen welke van deze twee taken uitgevoerd moet worden zet het programma in 
het begin de drie variabelen die als vlag dienst doen op invoer/berekening d.w.z. 0, om ze 
nadat een array de invoer/berekening routine doorlopen heeft op het schermoverzicht te 
zetten d.w.z. 1. 

Dit betekent dat elke keer als er daarna van een array gebruik gemaakt wordt deze array 
op het scherm zal verschijnen. 

De routine op regel 3000 zorgt ervoor dat elke string bestaande uit een getal, waarvan het 
aantal cijfers voor de komma bekend is, wordt omgezet in een string met hetzelfde aantal 
cijfers voor de komma en twee cijfers na de komma. Dit geeft de mogelijkheid om bijv. 
alleen maar '34' te hoeven invoeren in plaats van 34.00’. 


Vergeet bij het invoeren van getallen niet dat de Spectrum van Engelse origine is; niet 
gehele getallen moeten worden ingevoerd als bijv. '34,50' in plaats van '34,50’. 
Dit geldt trouwens voor vrijwel alle computersystemen. 


Programma 


100 REM LOONLIJST 

0 LET rm=0: LET pmerm: LET pr=em: REM zet vlaggen 
OVER O: PAPER 72 INK 11 FLASH O1 CLS £ GO TO 9000 
DO REM 
1010 REM initialiseer routine 
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1020 CLS : PRINT AT 0,6; INVERSE 13 INK 13 "WERKNEMER#GEGEVE 
NS" 

1050 PRINT AT 6,17 INK 13" INVOER#nieuwetgegevens: 
1040 PRINT AT 8,15 'LAADT#HHoudetgegevens 
1050 PRINT AT 15,8; K 1j"Toetst"""; FLASH 14"1“; FLASH Os 
vengofrots FLASH Lg”; Ogou 

1060 L kS=INKENS: IF k AND K$Z2"L" AND ki #"it AND 
KS THEN GO TO 1060 
1070 IF k&=tit OR k&="1" THEN LET kK&=CHR$ (CODE k&=32) 
1080 PRINT AT 15,15% INK 13 INVERSE 14"1";AT 15,224"L"1 PRI 
NT AT 18,12; 

1090 IF k$CH!L" THEN GO TO 1150 

1100 PRINT INVERSE 15 ENK 2: "OPLADEN"s: LET rm=l 

1110 INFUT "Tik#{spatiertENTERstink”:k® 

1120 IE k&Z2t#" THEN GO TO A10 

1130 LOAD “loon” DATA E$() 

1140 LET NE=VAL E&(1,1 TO 2): LET F=VAL E#(1,18 TO 21): GO 
TO 1190 

1150 PRINT INVERSE 14 INK 2 "#INVOERS": PRINT AT 21,04 INK 
1; INVERSE 1; FLASH 15" FLASH Ot INVERSE O;"aantal#werk 
nemers (1#-BI8)s#"s INVERSE 14" 44" 

1160 INPUT NE: IF NE:18 OR NESi THEN GO TO 1160 

1170 PRINT AT 21, 503 "## R$ B;CHRE B; INK 13 INVERSE 13NE 























1180 DIM E$S(NE+1, 21) 

1190 DIM R$ (NE, &) 

1200 DIM OS (NE, 6) 

1210 DIM GENE, B) 

1220 FOR Ist TO 7%: NEXT L 

1250 INK 1: FAFER 71 CLS 1: PRINT AT 0,84 INVERSE 13 "WERKNEM 
ERHGEGEVENS" 

1240 PRINT AT 2,23 INVERSE 15 "NAAMBWERKNEMER"zAT 2,213 “URL 
OON" 

1250 IF rm=l THEN GO TO 1500 

1260 REM invoer werknemer gegevens 

1270 LET rm=l 

1240 FOR I TO NE+1 
1290 LET E&(I,1 TO 15)=" 
1500 LET Imei+5e2 

1310 PRINT AT In,‚1st IF I210 THEN PRINT AT Im,0z 

1520 PRINT I-14 FLASH 15 INVERG “3AT 1n,3s FLASH O4 IN 
KO SEEN AEEA 

1330 INPUT S%: IF S$="4" THEN RETURN 

1540 LET E&{Il,t TO 1D) =S&: PRINT AT In,2i"#"GES(I,d TO 15) 
1550 PRINT AT 1n,20: INVERSE 1j FLASH Iy's"sAT In,253 FLASH 
Oz INK Zj "HIERGER 

1360 INPUT 
1570 LET ns: 
1380 PRINT 
E&(I,16 TO 21) 
1390 NEXT I 
1400 PRINT AT 2l,4g INVERSE 13 "Overwerkhonorering'"s AT 
z FLASH 1g "2" FLASH Oz INE ZgAT GL, 27 pg HEIEN 

1410 INPUT 8%: IF VAL SZ THEN GO TO 1410 









te LET EBCI,1& TO 21)="000000" 











0 THEN GO TO 15460 
1 REM invoer nummerie 
In, 2Er"HRRERH" ZAT In, 2 





string 
8 LET 
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1420 LET F=VAL 5%: PRINT AT 21,25: "H4REHRR"GAT 21,25:F: LET 
Eilt TO ZL 5 

1430 LET E&(1,1 TO D=STR$ NE 

1440 FOR TO SO: NEXT I 

1450 INPUT "GEGEVENS# plantbed saken ke 

1460 IF k&="" THEN GO TO 14% 

1470 IF k&(ij="j" OR k$="J" HEN SAVE “loon” DATA E$Ot RE 
TURN 

1480 IF ke AEEn" AND KEI SE 
1490 RETURN 

1500 REM zet werknemergegevens opnieuw op scherm 

1510 LET NE=VAL (E&(l,1 TO 29): LET F=VAL (E$(1,16 TO 219) 
1520 FOR TO NE+1 

1530 LET In=1+ 
1540 PRINT Af In,2;ES(I,1 TO 15)43AT Im,253ES(I,16 TQ 21) 
1550 NEXT 1 

1560 PRINT AT 21,4; INVE 
1570 PRINT AT 21,253F 















THEN GO TO 1450 











3 "OVERWEREHONORER ING" 









1580 NKEYS: IF ke" THEN BQ TO 1580 
1590 THEN COPY :; GO TO 1580 

1600 RETURN 

2000 REM 


herm uurloon overzicht 

2020 CLS : PRINT AT 0,85 INVERSE 15 "UURLOON#OVERZICHT" 

2030 PRINT AT 1,17; INVERSE 1: HUREN 

2040 PRINT AT 2,0: INVERSE 14 "WERKNEMER"zAT 2,19 

2,273 "OVW" 

2050 IF pm= 

2060 LET pm 

2070 FOR TO NE+1 

2080 LET In=l+3= 

2090 PRENT AT In,O;ES(I,1 TU 15) 

2100 PRINT AT In;tbs FLASH 14">"; FLASH Os INVERSE 1; INK 2 
5 

2110 INPUT ni: IF nicO THEN GO TO 2110 

2120 LET S$=5TR$ nl: LET ne= SUE 3000 

2130 PRINT AT Im,1b:"#"588: LET TR=TRenit LET R&(I-1)=5% 

2140 PRINT AT In,24; FLASH 14">"; FLASH O3 INK 2; INVERSE 
Edd 

2150 INPUT ni: IF nicû THEN GO TO 2150 

2160 LET S$=5TR& nl: LET ns=3: GO SUB 3000 

2170 PRINT AT 1n,24s"#";S4 

2180 LET TD=TO4ni: LET O$(I-1) 

90 NEXT 1 

2200 LET GE=ETR& TR: LET ns=4: GO SUB 2000 

2210 PRINT AT 21,85 INVERSE 1;"TOTAAL"sAT 21,163 INVERSE 0; 

ss 

2220 LET S$=8TR$ TO: GO SUE 2000 

2230 PRINT AT 21,24:5% 

2240 RETURN 

REM zet uurloon overzicht ap scherm 

FOR TO NE 

ET Imel+5 

PRINT AT In,ÒsE® (ti, t TO 15)4AT In, 17; REC, 1 TU 6); AT 

In,2550 (1,1 TO 6) 


2010 REM invaer/ 









ORM"; AT 





THEN GO TO 2500 
1 LET TR=0: LET TO=TR 



























hd 
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2540 
2550 
2560 
27 
2580 
2590 
2600 
2610 
2620 
3000 
3010 
3020 
50 
2040 
z050 
3060 
3070 
5080 
3090 
5100 
ELO 
4000 
4010 
4020 
4050 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
A11O 














NEXT I 
PRINT AT 21,8; INVERSE 1: "TOTAAL" 
LET S&$=STR$& TR: LET na=4: GO SUR 
FRINT AT 21,16; 56 

LET S4=STR& TO: GO SUB 2000 
PRINT AT 21,24: 5 

LET K&=INKEY$: IE k&="" THEN GO TO 2600 

IE k@="z2" THEN COPY : GO TO 2600 

RETURN 

REM 

REM string invaer waarden 

LET T&=STR$ (INT VAL 5%) 

FOR J=i TO (ns-LEN Té&); LET T&="#"+TB: NEXT J 

LET U&=STR$ (INT ((VAL SB-VAL T$) 10045): LET T&=Ti+ 




















IF VAL U$=O THEN GO TO 5090 

FOR J=i TO LEN U$: IF U$(J TO Ji="," THEN GO TO 5080 
NEXT J 

LET U$=U&(1 TO (J-1)) 

IF VAL U$S1O THEN LET U$="O"+UE 

LET S$=T&+U& 

RETURN 

REM 

REM bereken/scherm salaris overr 
IF pr=i THEN GO TO 4100 

BET LET TF=0 

FOR 


eht 











(I+l,16 TQ E10) 






8 TRE 
LET G&CE, 1 
LEN A 
NEXT 1 

CLS 2 PRINT AT 6,8; INVERSE 17 "SALARISHOVERZICHT" 
FRINT AT 2,0; INVERSE 13 “WERKNEMER";AT 2,21; "BRUTOHLOO 





nie 





MEZAT Dj LIEREN 


4120 
4150 
4140 
4150 
4160 


FOR Iet TO d 
LET In=I+3-1 
PRINT AT In,OsES(I+1,1 TO 15)8AT In,2A;G&(I,1 TO 8) 
NEXT 1 

PRINT AT 21,6: INVERSE 15 "TOTAALHLOON"sAT 21, 18 "F1"; 





INVERSE 0; 


4170 


4200 
4210 
9000 
$01a 
9020 
20 
PO4G 
9050 
FOL 
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LET SS=STR6 TP: LET ns 
PRINT "#"75% 





30 SUE 











LET k NEEY$: IF Ek THEN GO TO 4190 
IF ke THEN COPY 60 TO 4190 
RETURN 

REM 


REM hoofd loop 
GO BUB 1000: REM initiatiseer 
BO SUB 2000: REM uurloon ove 
REM salaris overs 
REM gegevens 








7.2 Verkoopanalyse 
(Copyright Beam Software) 


Dit programma gebruikt de verkoopcijfers over een aantal jaren van een onderneming om 
te bepalen wat de seizoenschommelingen en de algemene trend zijn geweest over deze 
jaren. 

Het programma is zeer nuttig voor elke onderneming die te maken heeft met sterk sei- 
zoengebonden verkopen. In een boekenuitgeverij is het bijvoorbeeld normaal dat zo'n 
25% van de jaarlijkse omzet in de maanden november en december binnengehaald 
wordt. 

De informatie die het programma nodig heeft zijn de verkoopcijfers per kwartaal over een 
zo groot mogelijk aantal jaren (max. 18). 

Hierna berekent het programma de seizoenaandelen door de werkelijke verkopen te de- 
len door de gemiddelde kwartaalverkopen over alle jaren. 

Het gemiddelde van elk seizoenaandeel over alle jaren geeft de seizoenindex. 

Om een snelle visuele toetsing van de groei van de onderneming mogelijk te maken zet 
het programma de jaarlijkse verkoopcijfers van het bedrijf in grafiekvorm op het scherm. 


Opbouw 

Net als bij de andere zakelijke programma's in dit boek is hier veel aandacht besteed aan 
de wisselwerking tussen gebruiker en computer. Dit soort programma's moet namelijk 
ook gebruikt kunnen worden door mensen die geen verstand hebben van computers. 

De invoer en uitvoer van gegevens loopt daarom ook via het scherm. Het grote voordeel 
hiervanis dat de gebruiker meteen ziet hoeveel en welke informatie hij ingevoerd heeft. 

De resultaten verschijnen op twee verschillende schermen; een voor de werkelijke ver- 
koopcijfers en een voor seizoenindexen. Door het indrukken van welke toets dan ook kun- 
nen deze twee schermen gewisseld worden. Tevens is er de optie om de resultaten naar 
de printer te sturen. 

De grafiek maakt gebruik van de PLOT en DRAW-instructies van de Spectrum. Door 
bij het opzetten van de grafiek-assen de schaal aan te passen aan de minimum- en 
maximumomzet over de jaren, benut de grafiek het maximaal mogelijke schermopper- 
vlak. 


Programma 

100 REM 

110 REM SEIZOENS INDEX 

120 BORDER 7: FAPER 71 INK tz FLASH 
120 GO TO 8000 

1000 REM 

1010 REM INPUT AANTAL JAREN 

1020 PRINT AT 0,94 INVERSE 1; "SEIZOENSH-#INDEX" 
1 PRINT AT 4,03 'OMZETHVERLOOP# (inclusief) 
1940 PRINT AT 7,63 "VANAFHJAAR" 
1050 PRINT AT 10,64 "TOTHJAAR" 
1060 PRINT AT 7,17; FLASH 13 TNVE 
INVERSE 15 "4E 

1070 INPUT St: LET yi=INT (VAL 54): IF yl<1900 OR LEN (STR$ 
yi »4 THEN GO TO 1070 

1080 PRINT AT 7,173 "Hz yl 




















SE 14"2!s FLASH Os INK 23 
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1090 PRINT AT 16,17; FLASH 15 IN 
5 INVERSE 1; "HRH" 

1190 INFUT 8%: LET y2=INT (VAL &%)t IF y2£1900 OR LEN (STR 
Y2)>4 OR y2iyl OR y2hyl+17 THEN GO TO 1100 

1110 PRINT AT 10,175"#"4y2 

1120 LET NY=y2-yl+t 

1130 DIM Y&ENY,4): REM jaar 

1140 DIM H&(NY,4,4): REM omzet verloop 

1130 DIM A&(NY,7): REM jaarlijksw gem. omzet 

1160 DIM R&(NY, 4,6): REM aandeel 

1170 DIM D$(4,6)t REM seizoens-index 

1172 DIM (4): REM som kwartaal ratios 

1174 DIM C(NY): REM teken boog dx 

11B0 DIM C(NY): REM teken boog dx 

1190 DIM C{NY): REM teken boog dx 

1200 FOR I=yi TO y2: LET Y&(I=yl+1)=STR$ Is NEXT I 

1210 RETURN 

2000 REM 

2010 REM invoer omzet verloop 

2020 CLS : PRINT AT 0,10; INVERSE 1; "OMZET#VERLOOF" 

2030 PRINT AT 1,263 INVERSE 1;"GEM.";AT 2,0; INVERSE 13 "JAA 

R";AT 2,5: INVERSE 14"KWTI"GAT 2,103 "KWTZ"3AT 2,1%; INVERSE 
13 "KWTS"GAT 2,20; INVERSE 14 "KWT4"GAT 2,26; INVERSE 13 "OMZ 

ET“ 

2040 IF hm=i THEN GO TO 2500 

2050 FOR I=l TO NY 

2060 LET In=lt3-1: PRINT AT tn,0;Y&(D) 

2070 LET hp=4: LET ts=0 

2080 FOR J=l TO 4 

2096 PRINT AT In,hp; FLASH t7"x"; INVERSE 13 FLASH Os INK 2 
zr” 

2100 INPUT St: IF VAL B®{O THEN GO TO 2100 

2110 LET ni=INT (VAL S8+.5): LET te=tetni: LET S4=S1RS n1 

2120 LET Zi="HRR": LET ZS(S-LEN 5% TO )=5% 

2130 PRINT AT In‚hps"#"; 28 

2140 LET H&(I,J)=Zi: LET hp=hp+5 

2150 NEXT J 

210 LET S&=S6TRE (t5/4): LET ne=4: LET nd=2 

2170 GO SUB 7000 

2180 PRINT AT In,hp+i;5% 

2190 LET A$(1)=5$ 

2200 NEXT 1 

2210 LET hm=t: GO TO 2550 

25060 REM 

2510 REM scherm 

2520 FOR I=l TO NY 

2550 PRINT AT 14+5-1,O3VECI) gE HECI, Dg "HEHE, 23 
1, ERE HCI, A) 5 "RG AEC 

2540 NEXT 1 

2550 INFUT "Copietoptprinterktj/n) #74 

2560 IF ke="j" OR k$="J" THEN COPY 

2570 IF k&="N" OR k="n" THEN RETURN 
2580 IF ké THEN CLEAR : STOP 

2590 GO TO 
2000 REM 
3010 REM bereken seizoensaandelen 
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IBE 1p"2"g FLASH Og INK 2 





























zHSC 















3020 CLS : PRINT AT 0,3; INVERSE 13 "BEREKEND#SEIZOENS-AANDE 
EL” 





PRINT AT 2,0; INVERSE 1s"JAAR"GAT 2,65 "KWTI"GAT 2,135" 
KWTZ"sAT 2,205 "KWTE"ZAT 2,273 "EWT4" 

5040 PRINT AT 21,03 INVERSE 1; "INDEX" 

3050 IF emel THEN GO TO 3500 

3060 PRINT AT 1,14; FLASH 14 INK 53 "EVENHGEDULD!" 

5070 FOR I=t TO 4: LET O{I) =O: NEXT 1 











080 FOR NY 
5090 LET „ A&{I) 
Z100 FOR 4 


3110 LET H&(I,J): LET n 
3120 LET S$=STR$ n3: LET nest: 
5130 GO SUB 7000 

E140 LET R$(I,J)=641 LET QI =O(I) +VAL 8% 
150 BEEP „03,12 

3160 NEXT J 

3170 NEXT 1 

2180 FOR I=l TO 4 

5190 LET ni=@ (1) /NY 

0 LET TR$ nlt LET na= 
2210 GO SUB 7000 

5220 LET D$ CH) 
E230 BEEP „05,24 

3240 NEXT I 

E250 PRINT AT 1,11s"#"; INVERSE 13 INK 
E Oz INK 1gttet 

3240 LET om= 
NEXT 1 
FRINT AT 1,113"#"; INVERSE 15 INK Si "OERKLAAR"s INVERS 
INK Lj” 

em=1 









LET md=4 








£ 








"OEHELAAR"; INVERS 








REM zet aandeel/index scherm op 
FoR FO_NY 

0 PRINT AT ItZet,O8 VED z "HERB CI, ID CHPGRECI, DD 5 O4" Es 
De ERE CI, 4) 

NEXT TI 

: PRINT AT 21,54D$ (1) z "REDE (2) VE DE CE) 7 UREEDE (4) 
3570 INPUT "Copietoptprinterk(j/m #2"; k% 

5580 ù j" OR k WJ THEN PY 2 GO TO 5570 

OR k NI! THEN _ RETURN 

“THEN CLEAR : STOP 




















4000 REM 
4010 REM plot omzet grafiek 

4020 CLS t PRINT AT 0,10; INVERSE 1; "OMZETHGRAFIEK" 

4050 PRINT AT 2,0: INVERSE 1;"JAAR";AT 1,26: INVERSE 1; "GEM 
"3AT 2,263 INVERSE 13 "OMZET" 

4040 IF gmei THEN 60 TO 4500 

4050 LET gm=t 

4060 PRINT AT 2,12; INVERSE is INKE %7 FLASH 1: "EVEN#GEDULD! 














4080 LET max=INT (VAL A&(1)): LET min=ma 
4090 FOR TO NY 
4100 LET ni=INT (VAL A&CI)) 
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4110 
4120 
4130 
4140 
4150 
4140 
4165 
4170 
4180 
4190 
0 

4200 
4210 
4220 
4250 
4500 
4510 
4520 
4530 
4540 
4550 














IF nitmax THEN LET max=ni 
IF ni%mim THEN LET min=ni 
BEEP „05,0 

NEXT 1 

LET ran=max-min 

NT (ran/152+,5) 

> THEN LET rat 





OO 





TO NY 
LET ni=INT (WAL A$(I)): LET nx=INT Cint=min) /rat+.5) +4 


LET C(l)=nx=ox: LET ox=nx 

BEEP .05,24 

NEXT I 

PRINT AT 2, 123 "HEEREN 

REM 

REM zet amzet graiek op scherm 

FOR iel TO NY 

LET In=l+5-1: PRINT AT 1n,O8Y&(D) GAT In, 254 A$ CI) 
NEXT I 

PLOT 40,155: DRAW 151,0: PLOT 40, 155: DRAW O,=155 
PLOT 40+T(1), 147 

FOR TO NY 

DRAW CCI) ,-8 

NEXT 1 7 

INPUT “Copietoptprintert (j/r) #28" js 















IF k$="j" OR k&="J" THEN COPY 7 GO TO 4600 
ir nn" IN" THEN RETURN 

IF k$="E" THEN STOP 

60 TO 4600 

REM 


REM getallen afronden 
LET Xe" HEREN 0 REM 10 spaties 
LET W&="1000000": REM & decimale plaatsen 

















7050 LET T TRE CINT VAL S%) 

704) IF ns:0 THEN LET T#&=X$(l TO ns=LEN T&) #TEt",": GO TO 
7080 

7070 LET T&=".0! 

7080 LET nä=VAL WEC TO nd+1): REM nd is aantal decimale pl 
aatsen 

7090 LET US=STR$& (INT ((VAL S&-VAL, TE) KnZt, 5) 

7100 IF VAL U$SVAL W${1 TO nd) THEN LET U$=W$(Z TO nd-LEN 
St 1) tE 

7110 IF ns=0 THEN LET T$="," 

7120 LET S$=T&+U8 

rd RETURN 

BOD) REM 

BOL) REM hoofd Leop 

BOZO LET hm=: LET emehm: LET gmshm: REM imitialiseer scher 
m 

BOZO GO SUR 1000: REM invoer aantal jaren 

8040 GO SUE 2000: REM inva omzet verloop 

8050 GO SUB 50 EM berekening 

80460 GU SUB 4000: REM plot grafiek 

8070 GO TO 8040 
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7.3 Bezittingenevaluatie 
(Copyright Beam Software) 


Beschrijving 

Dit is een van de drie zakelijke programma's in dit boek. Dit model kan worden gebruikt om 
persoonlijke bezittingen te catalogiseren en evalueren. Deze evaluatie is nuttig bij het af- 
sluiten of het behandelen van claims van brand- en diefstalverzekering. Het programma 
zou ook voor geïnvesteerde goederen bij een kleine onderneming kunnen worden ge- 
bruikt 

Elke bezitting wordt geëvalueerd op oorspronkelijke kostprijs, verkoopwaarde en kosten 
voor vervanging. 

De verkoopwaarde wordt berekend door middel van lineaire afschrijving, en de vervan- 
gingskosten zijn op basis van het huidige inflatiepercentage. Als basis zou ook een vast- 
gestelde dagwaardeschaal kunnen worden gebruikt. 







Én HORLOGE 
NIEUW WAARDE f 19 
45 JAAR OUD 
DAG WAARDE 

VOLLEDIG 
AFGESCHREVEN | 
N in 











Gebruik van het programma 

Alle invoer en uitvoer loopt weer via het scherm. Voordat de gegevens over persoonlijke 
bezittingen kunnen worden ingevoerd, moeten er eerst wat algemene gegevens bekend 
zijn: 


Algemene gegevens 


naam : 20 karakters 

huidig jaar 14 karakters (— >1984) 
huidige inflatie 1 < 100% 

aantal items :< 100 


ltem gegevens 
omschrijving : 18 karakters 
plaats 1 10 karakters 
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aankoopdatum :4 karakters 
levensduur 1 < 100 jaar 
aankoopsom : getal 


Programma-opbouw 


Initialisatie 
initialiseer string-variabelen 
invoer algemene gegevens 
initialiseer arrays voor: 
omschrijving 
plaats 
aankoopdatum 
levensduur 


Invoer item gegevens 
zet item scherm op 
invoer item data-velden 
bereken verkoopwaarde 
bereken vervangingskosten 


Hoofdlus 
invoer item gegevens 
totdat alle items ingevuld zijn of toets * ingedrukt 
zet beginkop op scherm 
zet eindkop op scherm 
stop 


Opmerkingen 

Alle waarden die in dit programma worden gebruikt zijn afgerond op hele guldens. Dit is 
gezien hetfeit dat er met lange termijn bezittingen gewerkt wordt volkomen verantwoord. 
De gebruiker zou het als een uitdaging kunnen beschouwen om de volgende verbeterin- 
gen in het programma aan te brengen: 

* alle itlem-gegevens komen weer in volgorde op het scherm; 

* alle items kunnen op PLAATS hergroepeerd worden. 


Programma 


100 REM evaluatie 
110 REM bezittingen evaluatie 
120 GO TO 9000 
1000 REM 
1010 REM zet beginkop op scherm 
1020 REM 
1040 CLS 1 PRINT AT 1,6;"BEZITTINGENSEVALUATIE": PRINT AT 2 
„bj "ommen on ie 


1050 PRINT AT 4,35; "NAAM: #" 
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1060 PRINT AT 6, 5 VHUIDIGRJAARHH : 4 

1070 PRINT AT Er "HUIDIGEKINFLAT hihi A 
1080 PRINT AT 10,23 "AANTALSITEMSHRR 1 it" 
1090 PRINT AT 12,13 "TOTAAL": PRINT AT 15, Ig "== ie 
1100 PRINT 1 "VERVANGINGSKOSTENHFI " 

1110 PRINT z "AANKOOPHHWAARDE" 

1120 PRINT hie ui 

1120 PRINT "VERSCHI 

















'zAT 17, 245 "ELN 





1140 PRINT Ume: 
1150 PRINT GVERSCHIL" ZAT 19, 143 "EH HEEL! 
1160 PRINT OTHVERKOOFWAARDERFI " 


1170 RETURN 
5000 REM 

5010 REM item routine 

5020 REM item scherm 

5050 FOR I= TO NI 

5040 CLS : PRINT AT 1,8: "ITEM#GE 
5050 PRINT AT 4,1; “OMSCHRIJVING 
5060 PRINT AT ES 13 "PLAATS: " 
5070 PRINT AT 8,1; "AANKDOPDATUM: "; AT 8,213 "LDUUR: je" 
5085 FRINT AT 10,1; "AANKOOPSOM: #FL" 

5090 PRINT AT 15,1;"HUIDIGE": PRINT AT 14,14 "— 
5100 PRINT AT 16,33 "VERKOOPWAARDE";AT 16,213"E1" 
SIG PRINT AT 18,3: "VERVANGINGSKOSTENHFL * 

5 PRINT AT 4,14; INVERSE 13 "HEEREN 

S130 PRINT AT 6,14; INVERSE 15 "HRBRHIEEEK 

5140 PRINT AT &,163 INVERSE 15 "#itRR" 

5150 PRINT AT 8,27; INVERSE 1; "ttr 

5160 PRINT AT 10,16: INVERSE 13 “HRS! 

5170 REM invoer item gegevens 

5180 PRINT AT 4,0; FLASH 13": 

5190 INPUT D&(I)s IF D&{I,i)="#" THEN GO TO 5410 

5200 PRINT AT 4,143 INVERSE 1;D8(I) 

S210 PRINT AT 4,04"#": PRINT AT 6,03 FLASH 1j "2" 

5220 INPUT L&(D): IF L&(I)="&" THEN GO TO 5410 

5230 PRINT AT INVERSE 13L&(I) 

5240 PRINT “z PRINT AT 8,0: FLASH 1j"»" 

5250 INFUT VAL T&{I,1 TU 4) 2VAL C$(1 TO 4) THEN 
Go To 5250 
5260 PRINT AT 8,16; INVERSE 1518 CD) 

5270 PRINT #1 PRINT AT 8,203 FLASH Ijs" 

5280 INFUT CO THEN 60 TO 5280 

5290 LET L=INT Lt PRINT AT 8,27: INVERSE Lil 

5300 PRINT AT B,204;"#"; PRINT AT 10,0: FLASH ijt" 

S310 INPUT O: IF OO THEN GO TO 5210 

LET O=INT O: PRINT AT 10,16: INVERSE 140 

PRINT AT 10,0; "4" 

REM bereken verkoopwaarde 

SO LET yu=VAl, C$-VAL TEIDE LET yu (yust) kyut (yuteld kle L 
T PV=INT C(le-yu) KO/L) 

3 Etrv: PRINT AT 16 
NT (OR{1+L 1/10) 
(STRE re)ire 

5380 LET TO=TD+0 





ENS": PRINT AT 2,84 "—— 




















































R$ rv)srv 
Rterc: PRINT AT 1 





yu) 
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5590 
5400 
5410 
6000 
4010 
&üz0 
4050 
+040 
4050 
6060 
6070 
6080 
LOP 
&100 
&110 
&120 
&150 
8000 
8010 
8020 

LET 
8050 
8040 
8050 
8460 
8070 
8080 
8090 
8100 
8110 
8120 
8120 
8140 
8150 
8160 





8210 
5220 





IF INKEYS: 
NEXT I 
RETURN 
REM 

REM zet eindkap op scherm oi 
PRINT AT 4,9; INVERSE 1iN$ 

PRINT AT &,177 INVERSE 1;C$ 

PRINT AT 8,20; INVERSE 148 INT (LIK1OO)/100 
PRINT AT 10,20; INVERSE 1; NI 

PRINT AT 14,24+B-LEN (STR$ TR); TR 

PRINT AT 15,244B=LEN (STR& TO) 3 TO 

LET disABS (TR-TO): PRINT AT 17 ELEN (STR$ di)sdi 
IF TRSTO THEN PRINT AT 17,213"— PRINT AT 19, 127 "=" 
PRINT AT 19,14; INT Cdi /TO) & O0) / LOC # 
ERINT AT 21, 24+8=-LEN (STR$ TO); TC 

IF INKEYS4#"#" THEN GO TO 6120 

RETURN 

REM 

REM initialise data 
DIM C$(4)a DIM N&(20) 1 
NI=0s LET TR=Ó: LET TO 
BO SUB 1000 

FRINT AT 4,9; INVERSE 17 "HREEERHEEEIEERAENEN 

PRINT AT 6,17; INVERSE 1y "#HRH" ei 
FRINT AT 8,20; INVERSE 1; "##"GAT 8,25 Lid 

PRINT AT 10,2C INVERSE Ly "kit" 

REM invoer velden ed 
PRINT AT 4,2; FLASH 13»! 

INFUT N$: IF N&="#" THEN BO TO 8100 

PRINT AT 4,93 INVERSE LjN®(1 TO 20) se 
PRINT AT 4,2s"H!": PRINT AT & FLASH 4j te 

INPUT C&: IF VAL C&41984 THEN GO TO 8150 

PRINT AT &,17: INVERSE 1;0% 

PRINT AT 6,23 "#" 

PRINT AT 8,2; FLASH 1j"2" 

INFUT LIz IF LI>100 OR LIXO THEN GO TO 8180 

FRINT AT Ù E Z"+STRB CINT CLIXLOO) /100 


“ THEN GO TO 5290 




















LET Liezô: 











È 





















PRINT AT 8,23 "#"r PRINT AT id 
INPUT NI: PRINT AT 10,205"EXT Ò EXT 


trien 


Z'+STR$ NI+"EX 





1 7EXT SHI 0" 


8250 
8240 
B250 


BEA 
EXT 
8550 
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PRINT AT 10,25 "4" 

PRINT AT 12,9: FLASH 13 INK Zj "EVENHGEDULD!" 

DIM D$ (NI, 18) 

DIM LS(NI, 10) 

DIM T& (NI, 4) 

DIM LAND) 

DIM OCNI) 

FOR I=1 TO NI > 
LET D$ CE gts LET LEDER" s LET TCD ek" 

LET L(D=0s LET OCD) =0 

NEXT 1 

PRINT AT 12,9: INK Zg VOERKLAAFGHIERR!: FOR Lel FO SO: DN 





LET TR#0;s LET TO=TR2 LET TG=TR 








B360 RETURN 
9000 REN 

9010 REM hoofd loop 

9020 GO SUB 8000: REM invoer begingegevens 

9030 GO SUB 5000: REM invoer item 

9040 REM eindkop gegevens 

5050 GO SUB 1000 

9060 GO SUB 4000 

9070 PRINT AT 12,94 FLASH 13 INK 14 "PROGRAMMAH#ISHELAAR" 
gogo STOP 


LK] 





8. Strategische programma’s 


8.1 Schaken 
(Copyright Clifford Ramshaw en Beam Software) 


Met dit programma kunt u de computer uitdagen voor een spelletje schaak. Maar wees 
gewaarschuwd, de computer is een slechte tegenstander en hij is ongelooflijk traag. 
Desalniettemin, dit programma heeft een mooie grafische vormgeving en een ieder die 
graag schaakt zou zonder al te veel moeite het peil van de computer kunnen verbeteren. 
Het programma zou ook nog omgebouwd kunnen worden, zodat twee personen een partij 
kunnen schaken. De keuze is aan u. 

Dit programma is een uitstekend voorbeeld van wat mogelijk is op de Spectrum. Schaken 
wordt algemeen beschouwd als een moeilijk spel voor computers, en hoewel dit program- 
ma geenszins pretendeert goed te kunnen schaken, laat het toch zien wat vrij eenvoudig 
met Spectrum-Basic bereikt kan worden. 

Als het programma wordt opgestart, dan zet de computer de variabelen op, tekent het 
bord en de stukken, en vraagt u om een zet in te tikken. U speelt met wit (bovenaan) en 
geeft een zet op met een letter tussen 'a' en 'h', gevolgd door een cijfer tussen ’1'en'B’. De 
computer controleert niet of uw zet legaal is, wees dus voorzichtig (mits u natuurlijk niet 
opzettelijk vals wilt spelen). 


Programma-opbouw 

Regel Beschrijving 

1-4 zet scherm op 
definieer enkele variabelen die gebruikt worden om ruimte te bespa- 
ren in de data-statements die gebruikt worden om de grafische schaak- 
stukken te definiëren 


1-270 gebruik de data-stalements in regel 30-220 om stukken als vrij pro- 
grammeerbare karakters op te zetten 


280 - 315 teken leeg bord op scherm 
318 - 350 dimensioneer de bord-array en de arrays voor de zetmogelijkheden 
van de stukken 
vul de bord-array in 
370 roep de subroutine aan die de stukken op het scherm zet 
380 - 500 vul de zetmogelijkheden-array in 
600 - 630 Hoofdlus: 
1 haal zet speler op 
haal zet computer op 


ga naar 1 
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800 - 900 


1000 - 1010 


3000 - 3150 


4000 - 4410 


5000 - 5090 


invoer spelerzet 

zet stuk ‘c' op bordpositie x, y 
voer spelerzet uit op scherm 
voer computerzet uit 


test of computer schaakmat staat 


Programma 


REM 





LEET 
10 FOR 





DATA 
DATA 
DIM 
FOR 


DATA 





DATA 


270 
TRE 
280 LET 


290 PRIN 
zoa FOR 


kxe51 





schaak 
PER 71 


BORDER 7: CLS 
LET t=Zit LET a=128: 
LET d=224: LET e=2401 
T y=l: LET z LET c=71 
DIM A$(1, 1) 
T ky=8: LET q=0 
m=UBR "a" TO USR "E"47 
nt FOKE m,n: NEXT m 
Hsk N VrE 

ETE „a,b 
ENEr Ze Yann N 
d‚d,brasbsd,x,x 
YatrEn sds tfafse 
adsd,a, 176,e,e,d 
EnisinYoeo fo El,x 
b‚b,bsa,d,e, px 
BERDE TRANEN EN 
Zeh, 64,a,b,d,dyd 
ErYoYoYs Es ent jx 
b‚a,a,a,b,d,e,x 
Ys „E14, geen 
asbsh,il2,e,d,d,b 
Baptten, Be 
arsthe hed 
"Yare En 
Hsrasb, dee, ps 1 
YaYsYo Ests En f, 
a,a,arb,d,d,e, 
187,2): DIM hé (7,2) 
L TO 7: READ té 


4 LET g=13 
LET & 


LET i=160 








ue 





































NEXT 





„bie 





LET h=160 


DATA "BEA AB GRU","GRA CD GRU", "BRA UR GRU", "GHA ST GE 


“ERA MN 


“ERA IJ 
se 

i= 

rt 
z=û TO 





"GRA KL GRU","GE8 OP GRU","E@RA CD GE 


BRU 










GRU", "BRA EL 


GRU", "ERA EF GRU", "GRÁ GH GR 





ERINT 


PRINT _ PAP! 





> TO 7: FOR y 


NEHABERCHDHERE HGEH 
} TO 1: PRINT 5 "#"j 
Hitz PAPER ij "AH" 





ER pi 
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NEXT zi PRINT 1 NEXT ys LET 





: LET iep: LET pet: NEX 


5 FOR y=1 TO B: PRINT AT yty,Oiy: NEXT y 
DIM b(8,8): FOR y=i TO FOR wet TO 8 
VEB Keb Gt, De Cy) edt (y=) 
THEN READ z 

LET by) NEXT 2 NEXT y 

DATA —4,-2,-5, 5,76, 3,20 

GO SUB 2 
DIM d(6,8,2): DIM p (6) 

FOR x=1 TO &: LET pl)=2t FUR yet TO 8 

LET dy, Del tyÂ5) OR (ys) C0yHE) AND (YE Kel 
410 LET dt, ys ide y#1) AND (yYZ9)) + Cy #5) Kel 

420 NEXT yr IF x@>2 THEN GO TU 460 

430 FOR y= TO 4: READ dy, 1de 
dies y, dt LET dot, y+A, Bed (u, y, 2) 
440 NEXT y 

450 DATA -2,1,-1 
46 IF THEN LE 
470 IF THEN LET p Go 
480 NEX! 
490 DIM c$(5): FOR zel TO St READ e& 0 
500 DATA te, tpi, tj, mjn, wjen 

600 GO SUB 3000 

610 PRINT AT 8,22; FLASH 1;"denkdenk"; 
620 GO SUB 4000 

6350 GO TO 400 
800 LET As(D)= 
805 IF (ASC1 
a 800 

810 PRINT ABC 3 "4"; 

A$ (1) -96 

830 LET AS(I)=INKEYS: IF (A&(I)="") OR (ASCIJA"1") OR (AEL 
B) THEN GO TO #20 

BaO PRINT A&D); 

850 LET Y1=COD/ 
840 RETURN 

900 LET X1=99%: LET Y1 RETURN 

1600 LET zi=INT ((ATTR (yty‚xtu))/B)t IF zis=8 THEN LET z1 
=21-8 

1010 PRINT BRIGHT 14 FAPER zit INK i3AT yeysxtuats(ersAT y 
dytlentj bte); 




















z LET dlu,y+4, De 

















za 











IF A& 
(AS CL 





)e=!p" THEN GO TO 900 
ta") OR (ABLID SN") THEN GO T 









AB CI) -4E 











RETURN 
2040 
2a2o 
2050 ES z: GO SUB 1000 
2040 NEXT y 


2050 RETURN 

OO IF f$="1" THEN PRINT AT 20,22: "SCHAAKMAT": STOP 

3010 PRINT AT 5,22; "SPELER": PRINT AT 4,22; "vantk'ss GU SUR 
BOO: IF X1=999 THEN STOP 

LET VY=Yl 

naar#";: GO SUB 8001 LET XEeXit LET YRe 










3040 IF b(XB,YE) 20 THEN LET p{b(XB,YB) > =p (b (XE, VJ) =1 
2050 LET b(XB, YE) =b (X, VJ 

5060 LET biX,Y)=0: LET i=7 

3070 IF b(XB,YE)i-1 OR YBSB THEN GO TO 2120 

3080 PRINT AT 6,19; "Nieuwtstukit”: 

5090 LET A&D =INKEYS 

5100 LET a=0: FOR zet TO 5: IF c${z)=A$(1) THEN LET & 
5110 NEXT z: IF azù THEN GO TO 5090 

115 PRINT A®(I)s: LET b{XH, VB) =a 

3120 LET c=7: GO SUB 1000 

3150 LET e=-b(XE,YB): LET x=: LET yeYB: GO SUB 1000 
5140 PRINT AT 5,225 "HRRBBERRH" GAT 4,225 "HEREENR" GAT 5,223" 
HERENT GAT 6, 19; BRAAK; 
3150 RETURN 

4000 LET xb=0: LET yb=xb: LET db= 
ET x=9 

4010 LET ax=kit LET ay=ky: LET q 




















z LET cleis LET bp=xb: L 





!y GO SUB 5010: LET gä=f 


xel TO 8: LET tbe: LET cz 





LET ty 





IF bit, y)el Th GD TO 4570 
4040 LET pebtx,y): FOR iel TO B: LET dyed{p,i,2 
p‚is 1): LET LET ay=ky:t LET ci=lt LET p 
4050 IF xeduil OR Krdxs OR yedyii OR y+dy5B THEN GD TO 45 
oo 

4060 IF p?2 AND p£& THEN GO TO 4210 

4070 IF dyt=1 AND p=i THEN GO TO 4400 

4080 IF y>l OR pèl THEN GO TO 4130 

4090 LET p (5) =p (5) +1 

4100 LET bix,y)=5 

4120 GO TO 4300 

4130 IF dx<>0 AND bûttdt,ytdy)iel THEN GO TO 4200 

4140 IF p=6 THEN LET z LET ky=y: LET ax=ktdx: LET ay=y 
“dy: GO SUB 5000: IF f$="1" THEN GO TO 4300 

4150 IF dx=0 AND b(x,ytdy)i#0 THEN GO TO 4300 

41&ù LET po=B-p=b Oetdt, yedy) KE 

4170 IF y£27 OR dxis0 OR bix,5)4>0 OR p?1i THEN GO TO 4300 
4180 IF q&="1" THEN GD SUB 5000: IF f$="" THEN GO TO 4300 





z LET dx 






















4190 IF g&="1" OR RND2.5 THEN LET ciz=Z 

4200 GO TO 4300 

420 LET 4d LET yi=y 

AR2O IF p=3 AND INT (i/2)X241 THEN GO TO 4200 

4250 IF p=4 AND INT (i/2)% THEN GO TO 0 

4240 IF xi+dxél OR xitdx>8 OR yl+dyst OR yl+dy2 THEN LET 
ci=ct-i: GO TO 4300 

4250 IF bleltdu,yltdy)r0 THEN LET ciect-ts GO TO 4300 
A26 LET pas=B-p+INT (RNDEE) —b Ox 1+tdx, yl+dy) 5 

4270 IF g&e="1" THEN GQ SUB 5000: IF f$="' THEN LET pospot 
50: GO TO 4240 

4280 IF bOxttdx,yltdy)40 THEN GO TO 43500 

4290 LET ciescttl: LET xi=xitdr: LET yl=yitdy: 60 TO 4240 
4300 IF pos THEN GO TO 4540 

4510 IF g&="1" THEN GU SUB 5000: IF f$="" THEN LET po=po+ 
Ho: GO TO 4540 
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4520 IF qö="" THEN GO SUB 5000: IF f$=" 
60 TO 4340 

4330 IF povsth THEN LET axstdukel: LET ay=y+tdyiei: GO SUE 
5000: IF f$="1" THEN LET po=po-pt2 

4340 IF poètb THEN LET tb=pot LET tu=xt LET tyeyt LET dei 
LET ez=cl 

4550 NEXT i 

4560 IF tb>bp OR (tb=bp AND (RND2.9 OR (Eyéyb AND RND2.5))) 
THEN LET bp=tb: LET xbetx: LET yb= LET elzez: LET do=d 


1" THEN LET poz: 














4370 NEXT x: NEXT ys LET peb(xb,ybì: LET 
1 LET yleybtd(p,dh,2)&cl: IF p=b THEN Li 


welp, db, DEL 
“it LET ky=yl 





4380 LET axs=kx1 LET ay=ky: LET b( 
yb)=0t LET q GO SIE 5010: LET q 
4305 PRINT AT 8,223 "HREBHERRGAT @, 22; "COMPUTER"ZAT 10,2 
vant"; CHRÉ Gxb+95)j'=";CHRS (yb+48) 

4386 PRINT AT 11,22; "naart" ;CHRS (x1+95)j"="sCHRE Cy1448) 3 
4390 LET i LET e= b: LET y=yb: GO SUB 1000 
4400 LET LET y=yl: 60 SUB 1000 

4410 RETURN 

5060 LET pe=b (tx 
vr 
5010 FOR ret TO 6: FOR jet TO Ei LET disd(r, j 
LET daze, js: LET Le 
020 IF axtdiklsi OR axtdikl2B OR ayt+d@kls1 OR ayt+d2X1:8 TH 
N GD TO 5060 

050 IF rei AND d2E1 AND q=0 THEN GO TU 5060 

40 IF blaxtdikl,aytd@kloe=r THEN LET f&="1"t GO TO 5070 
50 IF r AND r<6 AND blan+disi,aysd2kl THEN LET 1=1+ 
11 GO TO 
Z060 NEXT j 
5070 IF x28 THEN GO TO 5090 

SOB LET bx, ybebOetdikel,ytdytel): LET botdekel, yedykchje 
pe 

5090 RETURN 









l„ylj=b(xb,yb)e LET bb, 




















Kel, yrdykels LET bOoeteekel, yrdykol) eb Gt, 



















8.2 Dammen 

Dit programma is een combinatie van Basic en machinetaal en speelt een redelijke partij 
dammen. 

De computer tekent een dambord op het scherm met uw schijven (rood) onderaan het 
scherm en de zijne (zwart) bovenaan. De speler begint altijd en geeft zijn zet op als één 
‘van waarde’, waardoor de computer weet met welke schijf u wilt bewegen, en één ‘naar 
waarde’, die aangeeft naar welk vak op het bord de schijf moet gaan. 

De vakken worden aangeduid door een letter en een cijfer. De letters lopen van ‘a tot 'h' 
en geven de kolommen aan, de cijfers staan voor de rijen en lopen van '1' tot '8'. Een 
openingszet zou bijvoorbeeld "VAN a6, NAAR b5' kunnen zijn (u hoeft alleen maar ’a6' en 
‘b5' in te tikken). 
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U kunt te allen tijde het spel stoppen door een 'O' in te tikken als er een zet opgevraagd 
wordt. 

Van alle zetten wordt gecontroleerd of ze legaal zijn, zodat u niet vals kunt spelen. Slaan is 
niet verplicht, hoewel de computer hieraan de voorkeur geeft, en meervoudige sprongen 
zijn niet toegestaan. 

Als u een schijf op de laatste rij krijgt dan heeft u een dam. Deze mogen maar over een 
enkel vak bewegen en maar een schijf tegelijk slaan, maar ze kunnen wel voor- en achter- 
waarts bewegen. 


Hoe het programma werkt 

Het BASIC-gedeelte van het programma voert alle huishoudtaken uit. Het zet het bord op, 
regelt de invoer en uitvoer van uw zetten, en houdt het scherm bij. Een kort machinetaal- 
programma wordt aangeroepen om de zet van de computer te berekenen. Dit is nodig om 
niet eeuwig op zijn zet te hoeven wachten. Een uitdraai van het machinetaalgedeelte is 
afgedrukt voor hen die hierin geïnteresseerd zijn. 

Maakt u zich geen zorgen als u geen verstand van machinetaal heeft, want dit gedeelte 
wordt verzorgd door de data-statements in regel 9000 - 9450. Tik ze wel nauwkeurig in! 

In het machinetaalgedeelte houdt de computer een kopie van het dambord bij in de vorm 
van een serie bytes. Daarom worden veranderingen in de opstelling aangebracht door 
middel van een PEEK en POKE-opdracht in plaats van gebruik te maken van een array. 
Het is namelijk veel eenvoudiger voor machinetaal om geheugenadressen te hanteren 
dan arrays. 


Het programma: 

Regel Beschrijving 

10 - 20 brengen topgeheugen (RAMTOP) omlaag ter 
bescherming machinetaalgedeelte dat met 


subroutine 9000 hier neergezet wordt 


30 - 79 zet de scherm attributen 
bouw kopie bord in geheugen 


BO - 160 definieer de vrij programmeerbare karakters 
nodig voor de schijven 
zet leeg scherm op bord 


170 - 230 zet schijven op bord in beginopstelling 
300 - 320 Hoofdlus. 
1 haal zet speler op 


haal zet computer op 
ga naar 1 
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1000 - 1060 


2000 - 2540 


3000 - 3110 


3500 


3900 - 3904 


4000 - 5010 


9000 - 9020 


9100 - 9450 





zet schijf op bord op positie x,y in kleur c 
schijf is gedefinieerd door p: 


0 = leeg 
1 = normale schijf 
2 = dam 


invoer zet speler 


uitsplitsing: 

2000-2020 melding op scherm 
2030-2050 haal 'van'waarde op, legaal? 
2060-2110 haal 'naar'waarde op, legaal? 
2120-2200 als slag, doe zet speler 
2500-2540 als normaal, doe zet speler 


roept machinetaal aan voor zet computer en voert die zet uit op het 
bord 


zet x,y-waarden computerzet op scherm 


programma springt hier naar toe als computer 
heeft verloren 


invoer x,y-waarden zet speler 

als eerste karakters = 'O' dan wordt het spel 
gestopt en de speler gevraagd of hij nog een 
keer wil spelen 


machinetaalgedeelte wordt uit data-statements 
gelezen en boven RAMTOP gezet 


hier staan de data-statements die de machinetaal bevatten 


Programma 


1 REM dam 


1ù CLEAR Z2019 


20 GO SUE 


9000 


ZO RESTORE 70 
40 BORDER 7: FAPER 71 INK Oz CLS 
50 FOR x=32420 TO 22420489 


&O READ a: 


POKE x,a:2 NEXT x 


70 DATA 255,255, 255, 255, 255, 255, 255, 255, 255 
71 DATA O,1,0,1,0, 1,0, 1,255 
72 DATA 1,0,1,0,1,0,1,0,255 
75 DATA 0,1,0,1,0,1,0, 1,255 
74 DATA 0,0,0,0,0,0,0,0,255 


75 DATA 0,0,0,0,0,0,0,0,255 
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7& DATA 2,0,2,0,2,0,2,0,255 
77 DATA 0,2,0,2,0,2,0,2,255 
78 DATA 2,0,2,0,2,0,2,0, 
79 DATA 255, 255, 255, 255, 255, 255, 255 
80 FOR x=USR "a" TO 6E+USR "a" 

90 READ at POKE x,a: NEXT x 
100 DATA 0,7,31,65,63, 127, 127, 127 
101 DATA 0,224, 248, 252, 252, 254, 254, 254 
102 DATA 127,127,127,63,63, 31,7, 0 
105 DATA 254,254, 254, 252, 252, 248, 224,0 
104 DATA 0,7,31,60, 56, 116,98,97 
105 DATA O,224,248, 60,28, 46,70, 124 
106 DATA 97,9B, 116,56, 60,31,7, ö 
107 DATA 134,70, 46, 28, 60, 248, 224,0 
110 PRINT "#HARBRCHDHERFRORHP: PRINT 
115 LET dei: LET 1=5 
120 FOR TU 8: PRINT AT y+y,Ory:"#"; 
130 FOR zei TO 21 FOR x=i TO 4 
140 PRINT PAPER dj"##"; PAPER 1;"4#"z: NEXT «2 PRINT 2 FR 
INT "##"zr NEXT z 
130 LET t=d: LET del: LET let 
160 NEXT y 
170 LET p= 
180 FOR To 8 ser 





‚255, 255 













SUB 100c 
SUR 100 


LET y=5: 
NEXT x 


60 SUB 1000 








SUB 1000 

SUB 1000: LET y=8: GO SUE 1000: N 
EXT « 

300 GO SUB 2000 

310 GO SUE 2000 

320 60 TO 300 

1000 PAPER 1: INK cz PRINT AT y+y 
1005 IF THEN PRINT "tt"; 
1010 IF p=l THEN PRINT “GRA AB 
1020 IF p=2 THEN PRINT "GRA EF 
1030 PRINT AT yeytlents 

IF p=0 THEN PRINT "4" 

F THEN PRINT "GRA CD 
1050 IF p=2 THEN PRINT “GRA GH Er 
1060 RETURN 

2000 PAPER 7: IN 
2010 BEI 0 

















Os PRINT AT &,25 BPELER! 
PRINT AT 7 vaarden Haiti! 7 











INT Al 










2020 P B 
2030 LET 1=7: SUE 4000: f 
2040 LET fpa324l949kfytfnr LET f 


2050 IF f<52 AND f£2130 THEN GO TO 
2060 LET 1= 60 SUB 4000: LET tuext 
2070 LET tp LET t=PEEK tp 
2080 LET dxetuefxt LET dyety-fy 

2090 IF (ABS dx<r1 AND ABS dxs:2) OR AES 
0 Ta 2010 

2100 IF (dyet OR dy=2) AND f=2 THEN GO TO 2010 
2110 IF ABS dx=l THEN GU TO 2500 













BS dy THEN G 
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2120 IF t£20 THEN 80 TO 2010 

2130 LET jx=fxtdx/2: LET jy=fy+dy/2 

2140 LET jp=32419+9kjyt jk: LET j=PEEK ip 

2150 IF júrl AND j4>129 THEN GO TO 2010 

LET p=O: LET xefxt LET y=fyt GU S 





2160 LET cet: 
E fp,0 

2170 LET p=is IF + 
2180 LET 





1000: POR 








50 OR ty=i THEN LET p=? 
yr=tys GO SUE 1000: POKE tp‚fs IF ty=l TH 





2190 LET p=0: LET x=jxt LET y=jy: GO SUE 1000: POKE jp,0 
2200 RETURN 

500 IF t£#0 THEN 60 TO 2010 
2510 LET p=0: LET c=2: LET xefx: LET v=fyi GD SUB 1000: FOK 





IF f=130 OR ty=l THEN LET p= 
LET y=ty: GO SUB 1000: POKE tp‚f: IF yet THE 





N_ POKE tp, 130 

2540 RETURN 

OOG LET mp=USR 32020 

3002 PAPER 7: INK Or PRINT AT 10,225 "COMPUTER" 
3005 PRINT AT 11,223 "vand: HEE”; 

3064 PRINT AT 12,22; "naart: 84"; 

3005 FOR i=t TO 50: NEXT i 

3010 IF mp=0 THEN 60 TO 3900 

3020 LET (mp/256): LET ty=mp-2564fy 
2030 LET (fy/16)1 LET fysfyrlekfx 
2040 LET (ty/16): LET ty=ty-lbktr 
3045 LET LET y=fyt LET zeli: 60 SUB 35 
ET y=ty: LET z=12: GO SUB 3500 

5050 LET BO SUB 1000 
2060 LET EEK tp 

070 LET 2 

2080 LET 
3090 IF ABS (tx=éx 
100 LET xefx+(t LET y=fyeity=fy)/2 

2110 LET p=0: GO SUB 1000: RETURN 

3500 PRINT AT 2,28;CHR$ (tb); CHR$ (yt4B): RETURN 

2900 PRINT INK 03AT 20,04 "ikftgeefHoptt--HJIJ#HEETHGEWONNEN" 

























GO SUE 1000 





3901 PRINT AT 21,03 "Nogteenttkeert?#' 
ká IF INKEY&="" THEN GO TO 590% 
29C IF INKEY& ! THEN GO TO 7 
5904 STOP 

4000 PRINT AT 1 
4010 LET a 
4015 IF af= THEN GO TO 5000 

4020 IF a&i'a" OR a®>'h" THEN GO TO 4010 

4030 PRINT af: LET x=CODE af-94 

4040 PRINT AT 1,29; FLASH 1j"B"G;CHRE B3 

40 LET ats INKEVR 

40460 IF afs"1" OR ak#"8" THEN GO TO 40E 

4070 PRINT a%: LET y=CODE a&-48 

4080 RETURN 

3000 PRINT INK O;AT 20,05" jammer=—#IKHHEESGEWONNEN" 
5010 GO TO 5901 
















FLASH 1j sr 
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9000 
S010 
2020 
2100 
_ 2110 
H120 
9150 












PLEO 
9240 
9250 
9260 
9270 
9280 


9400 
DEEL 
ee FARO 
PAZO 
ZAAG 
S450 





RESTORE 9100: FOR »=32020 TO 2230 
READ a: FOKE x‚ar: NEXT x 

RETURN 

DATA 175,35, 177, 125,6, 10,119, 35 
DATA 16,252,6,35,35,174, 126, 126 
DATA 254, 1,40, 16, 254, 129,32, 24 

DATA 17,246, 255, 205, 187, 125, 17, 248 
„187,125, 17,8, 0,205 
+17, 10,0, 205, 187, 125 
35,55, 16, 219,50, 182, 125, 167 
40, 18,42, 183, 125,227,91, 185 
125,229,126,54,0,25,54,0 
25,119,24,19,58, 177, 125, 167 
40,29, 42,178,125, 257,91, 180 
125, 126, 54,0,229,25, 119, 255 
225, 205, 135, 125, 121, 230, 15, 254 
DATA 8,192,26,246, 128, 18, 201,1 

DATA 0,0, 201,235, 205, 146, 125,79 
DATA 235, 205, 146, 125,71, 201, 229, 215 
DATA 197,17,164,126,175, 237, 02,61 
DATA 17,9,0,60, 237,82, 48, 251 

DATA 71,25, 125,60,7,7,7,7 

128, 193,209, 225, 201,0,0,0 

0, 040,0, 0, 0,0, 205 
19,126,254,255 
1,200, 254,2, 40,7 
213,17,246, 255, 205, 
39,17,248, 255, 205, 15, 126, 40 
21, 17,8,0, 205,5, 126, 40 
»17,10,0,205, 5, 126, 40 
15,209,225, 34, 178, 125, 237,85 
180,125,42, 1,50, 177,1 
DATA 58, 177,125, 167,40, 235, 209, 225 
DATA 201,205,19, 126, 230, 
DATA 201 i,19,126,254, 130, 201, 229 
DATA 25, 126, 225, 201,229, 25, 205,19 
DATA 126,225, 254,0, 192,62, 1,50 

DATA 182, 125,34, 183, 125, 237,03, 185 
DATA 125,20 
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SSEMBLEER UITDRAAI 





7EAA4 


TD14 

7D14 AF 
7015 21R17D 
7D18 O&OA 
ZDA 77 
7DIB 25 


FDI 1OFC 








1iFGEF 
" CDBRZD 
11F8FF 
GDBE7ZD 
110800 
CDBE?D 
11OAGÓ 
;DEB?D 





7D4&6 1ODER 


7D48 ZAES7D 
ZDAR A7 

FDA 
704E 
os 








ded 


Prd 


LEE 








LEE 
LIL 
ZWART 
WIT 
DAM 
BORD 


START 











260 CLEAR 












LD 
Gr 
JR 
cr 
JR 
EE, 
CALL 
LD 
CALL 
LD 
CALL. 
LD 
Gall 
ING 
ENG 
DINZ 


LD 
AND 








DAMPROGRAMMA 











Ö zCODE LEEG VAR 

has. zCODE RAND BORD 

1 :CODE ZWARTE STEEN 
2 :CODE WITTE STEEN 
128 TEL OP BIJ DAM 
EEA z RORDADRES 

& 

A 

HL, ZET sWIS OUDE ZETTEN 
B, 10 zIN GEHEUGEN 

CHI) „A 

HL. 

CLEAR 


B‚35 sTEL TE CHECKEN FOS. 
HL, RORD+10 HL=EORD FOSITIE 


A, CHL) ;ZOEK STEE 
ZWART COMPUTER ST 
E,ZOEEST ; JAF=NORMALE STEEN 
ZWART+DAM s COMPUTER DAM? 

NZ,STOPCH ;NEEs=VOLGENDE ST 
DE‚=Iù 4TEST ZET ACHTERUIT 














VOOR DAM 


TEST SPRONG VOORUIT 
voor 
s0F DAM OF STEEN 


iVOLGENDE STN (TEST OM 
DE TWEE POSITIES) 


HL. 
VOLG 





As (ELAG) CHECK OF SLAG 

A 

Z,NORZET sNEEs=TEST GEW. ZET 
HE, (SLAGJ) sJA DUS DOE ZET 
Û BEPAAL RICHTING 


Bs CHI) 
CHI), LEEG 3 LEEG 





VAK 





Hi, DE 
(HL),LEEG ;VERWIJDER STEEN 
HL, DE 
CHL 
2E 









ST IN NIEUW VAK 
EF ZET AAN BASIC 





7060 650 NORZET EG & 











7D&0 ZAB17D 440 LD A, (ZET) _#CHECE OF ZET 
ke 650 AND A 

560 JR Z,ZETNEE ;NEE>=SPELER WINT 
670 LD HL, (VAN) _ ;DOE ZET OP BORD 
80 DE, (RICHT) 
690 A, (HL) s BEWAAR STEEN 
700 (HL) ,LEEB  ;LEEG VAK 
710 HL. 
720 HL, DE 
750 (HL) ,A 4ZET ST IN NIEUW VAK 


740 ZETGEV 


DE, HL zDE=NIEUWE BORDPOS 
HAAL OUDE EORDPOS OP 
zVERTAAL UIT BASIC 





7D75 CDB77D 
7D78 79 


OF zCHEGK Of DAM HALEN 





NZ z NE RUG NAAR BASIC 
A, (DE) 7 ZOE STEEN 

DAM MAAK HET DAM 

DE) „A 





RET 


7D8E O10D00 
7DB6 C9 





LD BG,0 $GEEF GEEN ZET MOGE- 
RET zsLIJE DOOR AAN BASIC 





890 ;DEZE SUBROUTINE NEEMT HL EN DE 
U95 ;ALS BORDPOSITIES 

| :RTAALD ZE IN X,Y COORDINATEN 
{ HET BASICFROGRAMMA 










HLt=B (DIT IS DE X,Y WAARDE VAN 
DE "VAN" POSITIE COMPUTER ZET) 






0 (XY WAARDE VAN DE 7 NAAR? 
ITIE) 

DE X WAARDE STAAT IN BOVENSTE HELFT 
VAN REGISTER B OF C, DE Y WAARDE STAAT 
IN DE ONDERSTE HELFT 














787 99 VERT & 
7087 1000 DE, HL, 
zoe LOE VERTIT iVERTAAL, DE IM C 
7D8E 1920 ‚A 
roa 5 DE ‚ HL. 
7DED C. 1040 VERTIT sVERTAAL HL IN B 
7D0 1050 HA 
7091 1060 
1 h & 


1080 ;VERTAAL HL IN X,Y COURDINATEN EN ZET 
1085 ;RESULTAAT IN REGISTER A 
1090 4 

1100 ;DE X WAARDE (KOLOMNO STE 
1110 ;STAAT IN BOV 
1120 ;DE Y WAARDE (ft 








N OP BORD) 
REGISTER A 
EN OP BORD) 
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7D95 
2094 
7D 
7098 
D93 
7D9B 

TDI 
7D9F 
7D9F 5 
7DA0 
TDA 
7DA4 
7DAE 
7DA& 
FDA7 
ZDA 
FDA 
7DAA 
AB 














PDB1 OC 


YDBE OOOO 


IDEA DOa0 
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1150 
1140 
1150 


TE HELFT A 


zEE 






„BORD gHLe 
z BORDADR: 








ENYL, 


KEEL DE It 





zHAAL REGISTE 


ue 





s DATA 








DEER 0 





VAN DEFR Os BURDADR 


El STEEN 
RICHT DEFW 0 zRICHTING 





DATA GEE 





JR SLAGEN 


DEFB O0 7VLAG 
DEFW € SORDADRES 
ECHT ING 








MOGELIJK VOOR STEEN OF 
CH} 
AL NAAR FC 





5 (HLS-LDE) 


MOBELLE 15 


NERMALE ZETTEN 





AL SLA 


IN DAT 








NORMALE ZI 
LJk VALSTRIK ZIJM £ 
ABEN KUNNEN WORDEN) 
ALLEEN € LAGEN ALS 
ANDERE ZET MOGELIJK IS 















ECU & 
CALL ERDSTN 
NUL 











HL 





1840 
1850 
1860 
Le70 LD DE, -8 
1880 CALL ZOEKWD 
1890 
1900 
191 
1920 
1e 
CDOS7E 1940 

280P 1950 

1960 3 

1970 SLAOF 
1980 


DE, 10 
ZOEKWD 
Z, VAL 















LJA, VAL 













rGEEN VAL DUS SLA 
;SLA ZET oP 


(RICH T),DE 
At 





ET) a 42E 


T VLAG OP 1 


val 







ZOEK ANDERE 





VERGEET HET ANDEL 5 





DEK 
STEE 
18 WIT 
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7EOC EC 


ZOEKWD $ 
ERDSTN zCHECK OF STEEN OP 
WIT+DAM s CHLO+CDE) 1 


sWITTE DAM 





ERDSTN FUSH HL 7RETURN STEEN OP 
ADD HL, DE EHL) + (DE) 
LD A, (HL) 


EEP NL 





EVSLAG EGU & 3CHECK OF LEGALE 


PUSH HIL : SLAB 
ADD ML, DE 


… BRDSTN 
HL 





E KANT 
AAN 








Ja A SLAG OP 
(SLAE) „a 
2290 (SLAGI „HL 
A00 (SLAGF) „DE 
Z410 
2 4 





8.3 Avontuur 

Dit is een programma dat u in staat stelt vreemde nieuwe werelden te bezoeken en te 
ontdekken. U vindt hier schatten en vecht tegen gemene monsters, wilt u ooit levend ont- 
snappen dan moet u raadsels en problemen oplossen. 

Met dit programma kunt u die avonturen op uw Spectrum beleven. De computer beschrijft 
de locaties die u bezoekt en de dingen die u er ziet. Hij vraagt u ook wat voor actie u wilt 
ondernemen. De opdrachten die u kunt geven bestaan uit een of twee woorden. U moet 
altijd een werkwoord gebruiken, om de actie te omschrijven, en vaak heeft u een zelfstan- 
dig naamwoord nodig, om het voorwerp te beschrijven waarop de actie betrekking heeft. 
Enige voorbeelden: 


‘noord’ - ga naar het noorden en kijk rond 
‘pak bijl - als er een bijl aanwezig is daar waar u zich bevindt, dan zal de com- 
puter proberen deze voor u te pakken. 


In enkele gevallen wordt u om meer informatie gevraagd nadat u een opdracht gegeven 
heeft. Als u bijvoorbeeld ‘vermoord draak’ ingetikt heeft, dan zal de computer vragen 
waarmee u dat wilt doen. In dit geval geeft u de naam van het wapen op, of niets (alleen 
ENTER intikken) als u de draak met blote handen wilt vermoorden. 

Dit programma geeft u niet alleen een avontuur om te beleven, maar maakt het u ook 
mogelijk om uw eigen avontuurlijke werelden te scheppen. 
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Hoe wordt het spel gespeeld? 

De computer zet een beschrijving van de locatie waar u zich bevindt en een beschrijving 
van de eventueel aanwezige voorwerpen op het scherm. Daarna wordt er aan u gevraagd 
wat u wilt doen. U moet met een opdracht zoals boven omschreven antwoorden. De com- 
puter zal uw opdracht proberen uit te voeren en als alles gelukt is dan vraagt hij om een 
nieuwe opdracht. Als uw opdracht echter niet mogelijk is - misschien door een spelfout - of 
als uw opdracht nu nog niet uitgevoerd mag worden, dan zal de computer dit melden, 
teruggaan en opnieuw proberen. 


Enkele opdrachten die u kunt gebruiken: 
*_ nood, zuid, oost, west (om)hoog, (om)laag 

Hiermee kunt u in elke richting bewegen. 

inventariseer - een lijst van alle voorwerpen die u bij zich heeft. 
*_pak - pak een voorwerp op 

* val - laat een voorwerp vallen 

enz. 


Als de beschrijving van een voorwerp een bijvoeglijk naamwoord bevat - bijv. ‘gemene 
trol’, dan kunt u niet zeggen ‘vermoord trol’. U moet dan ‘vermoord gemene trol’ of alleen 
maar ‘vermoord gemene! gebruiken. 

Merk op dat woorden afgekort mogen worden tot 1 of 2 letters, mits hierdoor geen verwar- 
ring kan ontstaan. Als een afkorting voor meer dan een woord opgaat dan kiest de compu- 
ter het eerste woord dat hij tegenkomt. 


129 





Als u een avontuur aan het spelen bent dan is het vaak een goed idee om een kaart te 
tekenen van de wereld die u aan het ontdekken bent. Daar veel van dit soort spelen een 
doolhof bevatten is het bijna onmogelijk om de weg niet kwijt te raken als u geen goede 
kaart bij zich heeft. 


Hoe het programma werkt 

Het programma bestaat uit twee afzonderlijke delen. Eerst krijgt u het databestand wat 
feitelijk het eigenlijke spel is. Het bevat alle beschrijvingen, voorwerpen en acties waaruit 
het spel bestaat. Daarna krijgt u het programma, waarmee de speler de mogelijkheid 
krijgt, om het databestand te communiceren 

Dit bestaat uit het opzetten van het spel, het opvragen van de opdrachten en het uitvoeren 
van de gevraagde acties. 


Het databestand 

De fundamentele onderdelen van dit spel zijn de locaties waaruit de wereld is opgebouwd, 
een kaart die de onderlinge relaties tussen de locaties beschrijft, de voorwerpen die in 
deze wereld voorkomen en de acties die de speler mag uitvoeren. We zullen nu uitvoerig 
ingaan op hoe deze onderdelen zijn opgebouwd. 


Locaties 

Voor iedere locatie is een beschrijving nodig om de speler te geven, zodat hij weet waar hij 
is, en een lijst van locaties waarheen hij vanaf hier kan gaan. Verder is het vaak nodig om 
een bepaalde voorwaarde te stellen waaraan voldaan moet worden om de locatie te kun- 
nen betreden. Dit kan van alles zijn, van het er zeker van zijn dat de speler een lamp bij 
zich heeft als hij binnenkomt, tot het laten uitvoeren van een bepaalde actie bij binnen- 
komst (bijv. een monster laten aanvallen als de speler een bepaald voorwerp niet bij zich 
heeft). 

In dit programma heeft elke locatie een eigen nummer dat de computer gebruikt om die 
locatie aan te roepen. De nummers beginnen met 1 en lopen in stappen van 1 op tot de 
laatste locatie, in dit geval nummer 30. 


De locaties staan in het programma opgeslagen in ‘data-statements’ in het volgende for- 

maat 

regelnummer DATA ‘string’, N,Z,O,W,H.L, voorwaarde 

het regelnummer is het locatienummer + bepaalde constante 

(9000 in dit spel). 

- de ‘string’ is de beschrijving van de locatie. 

- de waarden N,Z,O,W‚H‚L zijn de nummers van de locaties waar de speler uitkomt 
als hij de desbetreffende richting uitgaat (noord, zuid…(om)hoog, (om)laag). Als hier 
een 0 staat loopt de desbetreffende richting dood. 

- de voorwaarde is het nummer van de voorwaarde, waaraan voldaan moet worden 
om DEZE locatie binnen te mogen. De voorwaarden bestaan uit stukjes programma die 
staan op het voorwaardenummer + constante (7100 in dit spel). 


130 





Voorwerpen 

Wat u moet weten over elk voorwerp is de beschrijving, waar het voorwerp zich bevindt, 
het soort voorwerp (is het bijv. een monster of een schat), hoe sterk het is, en om een 
grotere flexibiliteit te krijgen, een voorwaarde waaraan voldaan moet worden wil de speler 
dit voorwerp kunnen pakken (bijv. de voorwaarde dat de speler vermoord wordt als hij een 
verboden voorwerp probeert te pakken). 

De computer herkent voorwerpen door hun nummers, net als locaties. De manier waarop 
de data voor voorwerpen is opgeslagen is iets anders dan bij locaties. Elk voorwerp heeft 
twee regels in het programma voor de beschrijving: 

De eerste is 


regelnummer DAT A-'string’ 


waarin 

regelnummer _= vaorwerpnummer + constante (hier 8000) 
‘string’ — voorwerp beschrijving 

De tweede is: 


regelnummer DATA-soort, kracht, voorwaarde 


waarin 
regelnummer _= voorwerpnummer | constante (hier 8500) 
soort — 0 voor normaal voorwerp 


> 0 voor een schat, dit getal is tevens de 
score voor het vinden van de schat 
<< 0 voor een monster 
kracht deze wordt op twee manieren berekend 
- bij een wapen is het het getal dat bij de kracht van de speler 
wordt opgeteld als hij dit wapen gebruikt 
- bij een monster is het de grootte van de kracht die bij een ge- 
vecht tegen de speler wordt ingezet 
voorwaarde = voorwaarde waaraan voldaan moet worden wil de speler dit voor- 
werp op kunnen pakken. 


Ten slotte hebben we nog de locatie nodig voor elk voorwerp; deze wordt opgeslagen in 
een ‘array’. De beginlocaties voor ieder voorwerp en het aantal voorwerpen staan opge- 
slagen in een DATA-statement, regel 8000, en op basis hiervan wordt de locatie-array 
opgebouwd 


De waarden die voor deze locaties worden gebruikt: 


-1_- voor voorwerpen die u niet kunt zien of gebruiken, bijv. dode dieren of schat- 
ten die lerug gezet zijn in de beginlocatie. 

0 _- voorwerpen die de speler bij zich heeft 

>0- alle andere voorwerpen en dit getal is tevens het locatienummer van het voor- 
werp 


De lijst werkwoorden die de speler kan gebruiken staat in DAT A-statements (beginnende 
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op regel 7001 in dit programma). Steeds als de speler een werkwoord gebruikt wordt deze 
lijst afgezocht om te kijken of het woord er in staat. Elk werkwoord heeft ook een nummer, 
gelijk aan de positie in de lijst, wat het programma gebruikt om de subroutine te vinden die 
de actie van het werkwoord regelt. Deze subroutine staat op 20 * woordnummer + con- 
stante (1480 in dit spel, de subroutine voor het eerste werkwoord staat dus op regel 1500, 
voor het tweede woord op 1520 enz). 


Programma-opbouw 


Regel 


5-40 


50 -110 


900 - 940 


1000 - 1100 


1200 - 1260 


1300 - 1311 
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Beschrijving 


initialisatie 
variabelen met vaste waarden, schermparameters en speciale varia- 
belen voor dit avontuur 


besturingslus voor dit programma, bestaat uit: 
1. zet locatiebeschrijving op scherm 

zet zichtbare voorwerpen op scherm 
2. haal de opdracht van de speler op 

voer de opdracht uit 

als opdracht mislukt ga naar 2 

ga naar 1 


initialisatie speciale variabelen: 

het aantal acties en voorwerpen, 

de voorwerplocatie array, 

om geheugen te besparen enkele ‘strings’ die voor diverse locaties 
gelijk zijn, 

enkele variabelen die als voorwaarden gebruikt worden, bijv. een deur 
die op slot zit 


invoer opdracht speler: 

hoofdletters worden omgezet in kleine letters en de eerste twee inge- 
tikte woorden komen in aS en n$ (een woord is elke reeks karakters eindi- 
gend met een spatie). 

de werkwoordenlijst wordt afgezocht op a$ en als die gevonden wordt 
dan geeft de subroutine het woordnummer door aan het hoofdprogram- 
ma, zo niet dan wordt speler om een nieuwe opdracht gevraagd. 


deze subroutine zoekt een bepaald woord op in bepaalde lijst, wordt 
gebruikt om de woorden voor een actie en de voorwerpbeschrijvingen bij 
een voorwerp op te zoeken 


zoekt de voorwerpbeschrijvingen voor de n$ (het tweede door de spe- 
ler ingetikte woord) 
als het zoeken resultaat op heeft geleverd dan worden beschrijving, 





1500 - 1802 


1997 


1998 


1999 


2000 - 2050 


7000 - 7004 


7100 - 7160 


8000 - 8525 
9001 - 9030 


9980 - 9981 


9990 - 9992 


voorwerpnummer en een vlag ten teken van resultaat opgegeven, zo niet 
dan wordt de vlag op geen resultaat gezet 


deze serie subroutines worden gebruikt om de acties behorende bij 
de werkwoorden uit te voeren 


naar deze regel wordt gesprongen als een actie niet mogelijk is, de 
melding ‘onmogelijk’ verschijnt op het scherm en de vlag wordt op geen 
resultaat gezet 


als actie niet mogelijk is, maar bovenstaande melding mag niet op 
scherm, vlag wordt wel gezet 


naar deze regel wordt gesprongen als actie mogelijk is, vlag wordt op 
resultaat gezet 


geeft een lijst van alle voorwerpen met locatie gelijk aan variabele '1’, 
indien deze er niet zijn verschijnt de melding ‘niets’ 


bevat de werkwoordenlijst, in regel 7000 staat het aantal werkwoor- 
den 


dit zijn de voorwaarden om voorwerpen op te kunnen pakken of loca- 
ties binnen te gaan. 

N.B.: voorwaarde O wordt altijd aan voldaan, dus als er geen voor- 
waarden nodig zijn dan wordt voorwaarde 0 gegeven 


data voor de voorwerpen 
data voor de locaties 


naar deze regel wordt na afloop van het spel gesprongen als speler 
alle schatten heeft gevonden 


na afloop (als speler gewonnen heeft of vermoord is} wordt hier de 
score op het scherm gezet en wordt speler gevraagd of hij nog een keer 
wil spelen 


Hoe moet u uw eigen avonturenspel opzetten? 

Eerst heeft u een wereld nodig om te kunnen ontdekken. Dit betekent dat er een databe- 
stand opgebouwd moet worden van de beschrijvingen van alle locaties die bezocht kun- 
nen worden en de verbindingen daartussen. Verder moet u besluiten welke voorwaarden 
er voor de locaties gelden. 


Laten we als voorbeeld een wereld opzetten bestaande uit twee locaties: 
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1. een gang die doorloopt zover het oog reikt; 
2. een kleine grot. 


De gang ligt ten noorden van de grot en als u in de gang naar het zuiden gaat dan komt u in 
de grot. Andere richtingen zijn niet toegestaan. Als voorwaarde is er een deur tussen de 
twee locaties die op slot zit. De speler kan alleen van locatie verwisselen als de deur van 
het slot af is. U krijgt dus: 


9001 DATA “in een gang die doorloopt zover het oog reikt” 
‚0,2,0,0,0,0,0; 
9002 DATA “in een kleine grot’,1,0,0,0,0,0,1. 


Merk op dat deuren maar een richting hebben er is dus geen voorwaarde verbonden aan 
het binnentreden van de gang, wel aan het binnengaan in de grot. 

De gang is onze eerste locatie, hier begint de speler en hier moeten de schatten naar toe 
worden gebracht. 

Nu heeft u wat voorwerpen nodig. U had al een afgesloten en een onaigesloten deur nodig 
(bij het begin van het spel staat de gesloten deur tussen gang en grot, maar als het slot 
verwijderd is dan stopt u de afgesloten deur in locatie -1 om daar vanaf te zijn en vervangt 
u door een onafgesloten deur). U heeft natuurlijk ook een sleutel nodig om de deur te 
openen. Als schat plaatst u een smaragd in de grot. Verder legt u een zwaard in de gang 
en laat u de smaragd door een slang bewaken. 


U krijgt dus: 

voorwerp soort kracht voorwaarde locatie 
afgesloten deur O0 0 onmogelijk 1 
open deur 0 0 onmogelijk 1 
sleutel 0 0 0 1 
zwaard 0 10 0 1 
slang st 100 onmogelijk 2 
smaragd 30 0 2 2 


Dit betekent dat de speler de deur en de slang niet kan oppakken en dat de smaragd 
alleen meegenomen kan worden als aan voorwaarde 2 is voldaan. Voorwaarde 2 wordt 
dan een test om te bepalen of de slang dood is. 

Het zwaard heeft kracht 10 en de slang kracht 100, dus als de speler begint met kracht 100 
en het zwaard heeft, dan zijn speler en slang aan elkaar gewaagd, met een licht voordeel 
voor de speler. 

De smaragd geeft een score van 30, de slang is een monster en de rest zijn normale 
voorwerpen. 


Dit wordt dan in het programma: 
8000 DATA 6,1,-1,1,1,2,2 

8001 DATA “afgesloten deur” 
8002 DATA “onafgesloten deur” 
8003 DATA “sleutel” 

8004 DATA “zwaard” 

8005 DATA “slang” 
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8006 DATA “smaragd” 


8501 DATA 0,0,on-vo (on is het adres van de 
8502 DATA 0,0,on-vo onmogelijke routine en vo 
8503 DATA 0,0,0 is het voorwaarde-adres, 
8504 DATA 0,10,0 on-vo is dus een voorwaarde 
8505 DATA -1,100,on-vo waar niet aan voldaan kan 
8506 DATA 30,0,2 worden) 


U heeft nu de acties nog nodig die uitgevoerd kunnen worden. De richtingen met bijbeho- 
rende subroutines en ‘inventariseer’, ‘pak’, ‘val’ en ‘vermoord’ zijn redelijk standaard en 
worden waarschijnlijk in al uw avonturen gebruikt. Kijk hiervoor in het programma. U heeft 
de actie ‘open’ voor de deur nodig, de werkwoordlijst wordt dan: 








7000 DATA 11 (het aantal acties) 

7001 DATA “noord”,”"zuid”,”oost”,"west” 
7002 DATA “hoog”,"laag”‚"pal 
7003 DATA “vermoord”,"inventariseer”‚"open” 








U moet nu alleen de ‘open'-routine nog schrijven. Deze moet testen of de speler in de gang 
is, de sleutel bij zich heeft, en of de deur nog op slot zit. U heeft een variabele nodig die 
aangeeft of de deur op slot zit (dit moet in het begin opgezet worden anders kan de deur 
open staan terwijl u denkt dat hij op slot zit). Deze routine ziet er als volgt uit: 


1700 IF lu =1 ORI <> 1 OR o(3) <20 


THEN GOTO on (testvoorwaarden) 
1701 LET o(1) = -1 (verwijder gesloten deur) 
1702 LET o(2) = 1 (andere deur in de plaats) 
1703 LET lu =1 (zet variabele op 1) 


1704 GOTO tr (succes) 
Nu de voorwaarden nog. U heeft de volgende twee nodig: 


1. is deur op slot; 
2. is slang dood. 


In het programma wordt dat: 


7101 GOTO on+lu (als lu=0 dan ga naar onmogelijk, 
als lu=1 dan ga naar tr; succes, tr staat nl. op adres 
on+1) 
7102 GOTO on+ (o(5)=-1) 
(als o(5)=-1 dan (o(5)—-1)=1, 
dus ga naar tr 
(als o(5)<=>-1 dan (0(5)=-1}=0, 
dus ga naar on) 


Nu heeft u dus een avonturenspel, hoewel een beetje aan de kleine kant. Veel geluk met 
het schrijven van uw eigen spell! 
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Programma 


1 REM avontuur 
tr=19993 LET on=1998: " fazan: LET 15 LET 
LET oz=8500: LET vs=7000t LET vars71001 LET ce=vo: 








& LET vr=i480: LET 
z LET st=l00 
10 BORDER 5: PAPER 71 INK O: CLS 

30 LET le1 

40 GO SUB 900 

50 POKE 25692,255: RESTORE l+ls: READ m&z PRINT "Jettbent# 
“imt: LET qe="Jetziet": GO SUB 2000 

&0 BEEP „2,12: PRINT 

70 GO SUE 100 

BO PRINT vg "4 

90 GO SUB vrtvik20 

100 IF f=0 THEN GO TO &0 
PRINT « 60 TO 50 
RESTORE os: READ oc: DIM o(oc) 
FOR i=t TO oct READ o(i): NEXT i 
RESTORE vs: READ vc 
LET bezû: LET Ju=0: 
ktet#iHiwoestijn't 
#40 RETURN 
1000 INPUT "WATHMOETHIKHDOENH"sst: IF LEN sfz0 THEN BO TO 
1000 





z LET ete=1997: LET der=160it LET ex 

















LET et="inteentuitgestre 
inteentnauewelgang” 








1010 LET a$="": LET n$="" 

1 LET FOR 1=1 TO LEN 5% 

ic EET & bi TO id 

1046 IF i$h="A" AND if{="Z" THEN LET i&=CHRE C524+CODE i6) 


1050 IF i$="#" AND «=1 THEN LET is=lEN 5%: GO TO 1080 
1051 IF i®="#" THEN LET x=eit GO TU 1080 

1060 IF x= THEN LET at=attif 

1070 IF x=l THEN LET n&=nstis 

1080 NEXT iz: LET w$=a%: LET ceve: LET devsti: GO SUB 1 
1090 IF vn=ò THEN PRINT “INV TEHEENSGEEN TEU #"za 
1000 

1100 LET v$=y$: RETURN 

1200 LET vnz=û 

1210 RESTORE d 

1220 FOR i=i TO ct READ mé: LET pelEN m&s IF xeLEN wi THEN 
T x=lEN W$ 
IF w$C TO » 














mE( TO x) THEN LET vnzit LET y&amb: LET 





1260 NEXT is RETURN 








1500 GO TO 1 
1501 LET croc: LET deaostir GO IF vn=û 
THEN 


1310 PRINT y#$: GO TO tr 
1811 ERINT "INV TESKENRGEEN TRU H"'yn%: GO TO fa 
Ù 60 TO dr 





1520 6D TO dr 
1540 Go TO der 
1560 60 TO dr 
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1880 LET d=5: GO TO dr 

1600 LET d=& 

1601 PRINT 1 KESTORE l+ls: READ m$: FOR iel TO di READ nl: 

NEXT i 

14602 IF nl=0 THEN PRINT "JIEHKUNTEDIESKANTENIETHOF"t GO TC 

fa 

1605 RESTORE nl+ls: READ mi,s,5,5,5,5,5 

1604 KREGD & 

1605 GO SUE cats: IF f=O THEN GO TU 1611 

1610 IF e(l)zÓ THEN LET l=enl: GO TO tr 

1611 PRINT "IETS#HOUDTHJEHTEGEN": GO TO fa 

1620 GO SUB 1200: IF f=0 THEN RETURN 

1821 IF afvm)< THEN PRINT “DAT#IS$HIERSNIET": GO TO fa 
1622 RESTORE oztvn: READ s: IF SO THEN GO TU ct 

1624 READ s 

1625 READ s 

1626 GO SUB cete: IF f=0 THEN GO TO ct 
1650 IF ex<s0 THEN LET exsax=1t LET o (vm) et 
1651 PRINT "JEHHEBTHTEVEELHBIJHJE"; GO TO fa 

1440 GO SUB 150 IF f=0 THEN RETURN 

1441 ) THEN PRINT "DAT#HEBRJERNIETHBIJHJE": GO T 
0 fa 

1642 RESTORE oztvn: READ s 

1645 LET o(vn IF Let AND 5220 THEN LET scemctus LET o{ 
vr) 2 PRINT "De#"syBs "verdwijnt" 

1644 LET =cxtl: IF se=220 THEN GO TO 9980 

1645 RETURN 

1640 GO SUB 1300: IF f=ù THEN RETURN 

16461 LET t&=y$: LET mn=vn: RESTORE oztvn: READ s,ms: IF sie 
0 THEN GO TO ct 

1662 LET : BEEF „1,20: INPUT “vermoordtwaarmeet?"sw$:i IF 
w$="! THEN GO TĲ 1670 

1465 LET csoc: LET deosti: GO SUB 1200: IF vm=0 THEN GO TO 
1642 

1644 IF o{vn)<>=0 THEN GO TO 1662 

1665 RESTORE oztvnt READ s,s: IF s=0 THEN GO TO 1662 

1664 PRINT “"#met#":y$; 

14670 PRINT z LET stst: IF ms:stRNDK20 THEN GO TO 1479 
1671 IF s=mstANDX15 THEN 60 TO 1678 

PRINT "Dek"zt$; "Htvechtkterug. Hetwordttizwakker 

LET « E-RNDXS: GO TO tr 

1678 PRINT "Jekhebt#det" stb; "varmoord's PRINT "Hettlijktve 
rdwijntHinteentrookwolk": LET o(mn)=-1l: GO TO tr 

1679 PRINT “Dekt"st$; "#thaeft#joutvermoord”: ) TO 9990 

1880 LET 1i=l: LET l=ös LET qô="Je#hebtfbijkje": GO SUB 200 
Oi LET 1: GO TO tr 

1700 PRINT ses 60 TO tr 

1720 GO SUR Os IF f 
1721 IF vang Ò OR ol2)E0 THEN GO TO et 
1722 LET o(l4)salvn)s LET @ (vm) en PRINT 
el#komt#uitHhettplafondigeval len RETURN 
1740 IF 1et11 AND 15229 THEN GO TU ct 
17AL IF 1=ii AND a 220 THEN PRINT "Jetfzinkt#naartde#bode 
mitvantdetttiplastentverdrinkt": GO TO 9990 

1742 IF 1eii THEN LET 1229: GO TO tr 















RETURN 















































GO THEN RETURN 











nti voren#sl aut 
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1745 LET leit: GO TO tr 

1760 GO SUB 1300: IF f=0 THEN RETURN 
1761 IF let AND o(4)=0 THEN LET a 
Lu=is RETURN 

1762 IF 1 AND oCt4)=0 THEN LET o(24)e 

ET gu=1: RETURN 

1762 GO TO ct 

1780 IF o(1&) 0 OR 1435 OR 1210 THEN GO TO ct 

1781 PRINT "Jefvindt#”; 

172 IF ib AND oC4)=-l THEN LET o(4) el: PRINT “iets”: 60 

TO tr 

1785 PRINT "niets": 60 TO tr 

1800 GO SUB 1300: IF f=0 THEN RETURN 

1801 RESTORE vatvn: READ s,st,sl 

1802 IF 540 THEN GO TO ct 

1805 GO SUE cstsl: IF f=0 THEN GO TO ct 

1804 PRINT "In#detraas!": LET o{vo)=-1: RETURN 

1824 GQ SUB 1300: IF f=0 THEN RETURN 

1821 IF 14>24 OR vn<?7 THEN GO TO 1830 

PRINT "Eentbrugtverschi jnt#overtdef#itikloof": LET oCt 
LET be=l: 60 TO tr 

1830 PRINT "Er#gebeurt...niets": GO TO fa 

1840 IF 1=24 OR 1=26 THEN PRINT "Detval#heefttjefnekitgebro 
ken": GO TO 9990 

1841 GO TO 1830 

1860 BO SUB 1300: IF #=0 THEN Rú 
1861 IF vns>18 THEN GO TO ct 
1862 PRINT "Dat#twastheerlijk": Ll 
1: RETURN 

1997 PRINT "ONMOG 
1998 
1999 

2000 





» 





1 LET o(25)= 





A 









LET o(25)= 




















TURN 





T o{19)=olvndt LET alvren 





PRINT q% 
2010 RESTORE os+1: FOR i=1 TO 


READ m$ 





2020 IF lärati) THEN GO TO 2 










zoal PRINT "##een"; 

2022 $(t TO 1): IF z OR z$="e" OR z gek ek 
"a! “THEN PRINT *n 

2024 m$ 


2050 NEXT i 
2040 IF x=0 THEN PRINT “##niets” 

2050 RETURN 

7000 DATA 19 

7401 DATA “noord”, "zuid", "oost", "west", “hoog”, “laag” 
7002 DATA "pak", "val", "vermoord", "inventariseer", "score" 
7005 DATA "breek", "zwem", "open", "graaf" 

7004 DATA "eet", "zwaai", "spring","drink" 

7100 GO TO tr 

7101 GO TO fatlu 

7102 BO TO fatgu 

7103 GO TO fatbe 

7104 GO TO fatto) =0) 

7105 GO TO fat(alit 
7106 GO TO fat(olt2) 
7107 BĲ TO fatlatL0 
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7150 IF o(t8)S#0 THEN GO TO tr 
7151 LET o(18)=-l: LET oil2)e-1t PRINT "Alstjetbinnenkontts 
teeltjteentttHtpiraatkjetrumtentloopt#lachend#itweg": GO TO tr 





7160 PRINT "Detduiveltvermoardt#jes: GO TO 9990 

8000 DATA 25, 1,12,27,-1,14,17,21,28,29, 12, 14, 17,20, =d, =1, 11 
22ste 19e de 1eele 1E, 1 

8001 DATA "koperentlamp" 

8002 DATA "degen" 

DATA “snorkel 

DATA "grotetsleutel" 

i DATA "persischetzijde" 

DATA oudentmuant ” 

DATA ilverentmuur” 

DATA "rabi jn" 

DOOI DATA “diamant” 

8010 DATA "gemenettrol" 

BOLL DATA "groene#draak" 

8012 DATA "piraat" 

BOE DATA "duivel" 

8014 DATA “ivorentsleutel" 

8015 DATA "kristallen#brug" 

8014 DATA "schop" 

BOL? DATA "keukenttafel" 

BOL8 DATA “"flestrum'" 

8019 DATA "legettfles" 

8020 DATA "touwladderttussentvloerktenkplafond” 

DATA "“kleinetwaterplas" 

DATA "geslotentdeur” 

DATA "deur" 

DATA "geslotentpoart” 

DATA "“paort” 

DATA 
DATA 
DATA 
8504 DATA 
8505 DATA 
8506 DATA 
8507 DATA 
8508 DATA 
8509 DATA 
DATA 
DATA —1, 110,2 
B DATA -1,200,2 
E DATA —1,200,2 
DATA 
5 DATA 
DATA 
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8524 DATA z,2,fa-cs 
8525 DATA z,z,fa-cs 
SOOL DATA "intdekwoonkamertvanteentgraotkhuis. FOpteentbardt 
staat: 4 Brengtallebachattenhiertterug” ',2,2,2 1asz, 12,2 
Poor DATA "in&dekkeuken",z,1,3, 22,27 
POOT DATA e$‚z,4,5,2rznzsz 

GOOR DATA e%,‚35,7,6, 2,2, 2,7 

9005 DATA e$‚z,6, 7, Eras zoz 

006 DATA e$‚5,8,z,4,zuz,2 

9007 DATA ef‚z,2,2,4, 292,2 

GUOE DATA ek‚4, 9 Erens 

9009 DATA e$‚8,2,10,2,2,2,2 

OIO DATA e%‚ll,z,2,P,2,a,z 

ZOLL DATA "bijteentoase",z, 102,2, 22,2 

VOLE DATA "inteentkelder",z,16, 15,2 iszrd 
015 DATA "bijde EXT SHI 2 FOORT#VANKDERHEL 
ZeZnZnA2ez, 20E 

POLA DATA "imnteentt INV aardsdenkeretgrot TRU',r2,15 
9015 DATA p$‚14,18,z,16,z,2,2 

9016 DATA pé‚ 12,2, 1Srzszn 17vE 

FOL17 DATA "in#thettpiratennest',z,2,2,2, 14,2, 50 
SOLB DATA p$, 15,19, 
2019 DATA p#$‚18 5 
2020 DATA wintderHEl. 

















„2E 





1E EDE 

HEenttduivel#zegth’ Vindideftuitgangk-# 
EXT SHI 2 of#sterf EXT SHI 0°",50,30,20, 21,50, 30,2 

9021 DATA p$‚2,24,22,20,2,2,2 

s022 DATA “ineen aadlopendtstuk",z,2,2,2i,z, 
SZ DATA * En SHI 2DOOD#INHDEHHEL EXT 7 
HEEE Es ENE = 
$O24 DATA "optdetrandtvanteentdiepetkloof”,21,25,2,2, 
9025 DATA "inteentschitterendetedelstenenttthal",24,2,2 
„2,5 

026 DATA "optdekrandtvanteentdiepetschachtErntri jnthierkspa 
ren#vant EXT SHIT 2 vuur EXT SHIT O Hent EXT 6 zwavel EXT 7", 
2,27, 2E, z 
9027 DATA pé$‚ 26,2 
O28 DATA p$‚z, 
9029 DATA 
EXT SHI 0 
Ò DATA Pe 
2980 PRINT £ PRINT 2 PRINT 2 PRINT 

9981 PRINT "GEFELICITEERD##HetHavontuurtistttenteindetentje ee 
#bent#veiligtmet#allefschattentthuisgekomen. ” 

9990 PRINT : PRINT "SCOREN"; si PRINT "Wiltjeftnogteentkeert 
spelent?” 

9991 LET m$=INKEY 
9992 IF m$t TO 1) 











Eni 
















rwemmentinteentkleinekwaterpla 











IF m$="" THEN GO TO 9991 
" THEN 60 TO & 





Enkele tips voor het spelen van avontuur 

(1) Verdwaald in de woestijn? 

Wanhoop niet. De woestijn is niet eindeloos. Laat wat voorwerpen achter op strategische 
plaatsen zodat u een kaart van de woestijn kunt maken, die heeft u nodig om de oase te 
vinden. 
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(2) U krijgt de deur van de woonkamer niet open? 
Daar heeft u de sleutel voor nodig die ergens in de woestijn begraven ligt. Om die sleutel 
uitte graven heeft u weer een schop nodig, en die kunt u ergens buiten het huis vinden. 


(3) Zit u vast in de HEL? 
Doe wat de duivel zegt. 


(4) U komt niet voorbij de piraat? 
Probeer de rum. 


(5) U kunt de draak niet vermoorden? 
Blijf proberen. 


(6) U kunt de sleutel van de poort niet vinden? 
Probeer de touwladder. 


(7) U kunt niet naar de overkant van de kloof? 
Misschien zou een tovermuur wél uitkomst brengen. 


(8) U kunt de laatste schat niet vinden? 
Ga een eindje zwemmen. 
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Voor de bezitters van een ZX Spectrum is dit boek een 
bron van inspiratie bij het programmeren var hun 
computer. 

De BASIC-progtamma’s in dit boek zijn zó uiteenlopend 
van karakter dat het onmogelijk is om een grootste 
gemene deler aan te geven. 

Voor de liefhebbers van spelletjes zijn er voldoende 
programma's te vinden om voorlopig aan het scherm en 
het toetsenbord gekluisterd te zijn. 

Zij vinden onder andere gokspellen als Blackjack en 
Fruitmachine en grafische spellen als het bekende 
Invaders, 

Wil men de computer voor zakelijke doeleinden gebruiken, 
dan grijpt men al gauw naar programma’s als 
Loonadministratie of Verkoopanalyse, 

Het is overigens aan de gebruiker om het 
schaakprogramma in dit boek ergens bij in te delen. Om 


dit onder spelletjes te rangschikken lijkt enigszins 
oneerbiedig… 

Bij elk programma is een uitgebreide beschrijving van het 
principe, de opbouw en de werking opgenomen, zodat een 
goed inzicht wordt verkregen in het programmeren en een 
basis wordt gelegd voor het maken van een eigen 


pragramma. 
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